INCLUDES OVER 20 PROGRAMS 


TIM HARTNELL 


Foreword by 
CLIVE SINCLAIR 


——-—-———_... 


DMPUTERGUIDE 


With oolour, sound, up to 48K RAM and high-resolution 
graphics, the ZX Spectrum provides professional 
computing power for domestic, educational and 
business use. 


In this practical guide — with programs through- 
out/- Tim Hartnell takes his readers from their 
firs} steps in programming to how the 
ZX/Spectrum can be used as a tool at home, at 
werk and for education. He looks at the use of 
s@uind, colour and 3D graphics, and shows 
how to write programs in BASIC, as well as 
haw to use machine code on the 

2K Spectrum 

r 

The ZX Spectrum Explored is complete 
/with many programs for education, 
,business and — not least — pure fun! 


Cover design by Richard Kelly 
ISBN 946195 005 


£5.95 net 


\ 


The zx Spactum Salas 


A SINCLAIR COMPUTERGUIDE 


The 
ZX Spectrum 
Explored 


TIM HARTNELL 


SINCLAIR BROWNE: LONDON 


a ET 


Contents 


Foreword 
Acknowledgements 
Introduction 


Programming in BASIC 
Programs: 
ROCK, SCISSORS, PAPER 
ROCK, SCISSORS, PAPER (with colour) 
KEYBOARD TUTOR 


Exploring the Spectrum’s colour 
Programs: 
OVERPRINT 
ATTR CALCULATOR 
RAINBOW 
COLOURS 
NETWORK 
ICESTAR 
NIGHTWATCH 
RANDOM CIRCLES 
BOWLING BALL 
CONE 
TRIANGLE DRAWER 


Exploring the Spectrum's sound 
Programs: 
MUSIC PLAYER 
PIANO 
MUSIC WRITER 
PHASOR FIRE (one to three) 
WALKING 
BOMB 
FREQUENCY/TIME SHAPES 
FREQUENCY SHAPES 
MUSIGRAPH 


29 


Using the Spectrum in business 
Programs: 
PERSONAL ACCOUNTS 
DIARY 
TELEPHONE DIRECTORY 
DATABASE 
FINANCIAL MODEL/SALES PROJECTION 


Using the Spectrum in education 
Programs: 
DIVISION TEST 
ARITHMETIC QUIZ 
additional lines for DIVISION 
EQUATIONS 
CATS AND THINGS 
FRENCH VOCABULARY 
QUIZ-MASTER 
READING TEST 
DOODLE-BUG 


Playing games with your Spectrum 
Programs: 
NIGHTFALL 
JACK-MAN 
POETRY 
METEORS 
FIELD OF SKULLS 
BREAKOUT 
GAMBLIN’ FEVER 
SCREENS RACE 
SPAWN 
WORKIN’ FOR THE MAN (simulation) 


Three-dimensional graphics 
Programs: 
THREEDEE ETCH 


Introduction to machine code 
A guide to better programming 


Appendices: 
History 
Peripherals 
Spectrum Specifications 


77 


111 


190 
202 
208 


Foreword 


A sheet of paper may carry the jottings of an idiot or a sonnet by 
Shakespeare, but by itself it is nothing. In the same way a 
computer, however powerful it may be, is only what the 
programmer makes it, and therefore the skill and art of 
programming has risen to great importance. Hence this book, 
which takes over where the manual provided with the Spectrum 
leaves off. No manual can say it all and ours can only give the basics 
of programming. This book, by means of program examples, 
teaches skills of programming which, without its aid, might take 
years to acquire. It will be of great benefit both to the reader who 
has recently taken up programming and to the more experienced 
programmer who wishes to increase his skills. 


Clive Sinclair 
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Introduction 


Production of the Oxford University Press dictionary took over 70 
years, because the compilers wanted to include every word in the 
English language, and every meaning of every word. | felt, when 
surveying the ground this book could cover, that writing The ZX 
Spectrum Explored could also take 70 years, if every possibility of 
the computer was catered for. Therefore, | selected what seemed 
to me to be the most important elements of programming on the 
Spectrum, and the areas in which you would be most likely to want 
to apply your computer, and drew up a book outline based on those 
conclusions. 

Many of my computer books include a statement along the lines 
of ‘This is a doing book, not a reading one’, by which | mean the 
book is to be regarded as a tool to direct hands-on computer use, 
rather than one to be read as you might read a novel. The same 
admonition applies to this book. While you may well get some 
benefit from just reading through it, the real value of the book will 
only be realised when you read it with your Spectrum turned on, 
and when you enter each of the routines and programs when you 
come to them in the text. 

Do not feel that there is any pressure on you to read the whole 
book from start to finish in the order in which it is presented. There 
may be things you already know, or at this stage have no desire to 
know. By all means, bypass these chapters the first time you work 
through the book, and then perhaps you can come back to them 
later. 

Whatever you do, don’t regard The ZX Spectrum Explored as a 
textbook. Textbooks seem to me to be pervaded by a sour air 
which renders their contents joyless, and that is the last thing | 
would want this book to be. It is a guidebook; a signpost; an 
indicator towards areas of computer use where real adventures lie. 
Please regard it as such. If you do, the book should help you geta 
great deal of pleasure from your Spectrum. 

In The ZX Spectrum Explored, we start by looking at the 
fundamentals of programming, then go on to ways of adding colour 
and sound to your programs, using the relevant commands to get 
the Spectrum to produce effects which are more interesting than 
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you may have thought possible. 

Using the Spectrum for business, and then in education, is 
covered next — with each chapter supplied with a number of fully- 
developed programs — and then we have a major chapter on 
games. This chapter includes programs for several ready-to-run 
games, and should give you a number of ideas to help you create 
your own games. The production of user-defined graphics is also 
discussed in the games chapter. 

An even more spectacular use of the Spectrum's high resolution 
graphics is outlined in the next chapter for the production of three- 
dimensional graphics. 

Finally, we look at the use of machine code on the Spectrum, and 
Suggest ways of further developing your programming skills. In the 
appendices you'll find a brief history of computers, an explanation 
of some of the jargon associated with them, and an outline of the 
Spectrum's specifications. 

All in all, | hope we've managed to produce for you a 
comprehensive guide to your ZX Spectrum which wi help you 
make the most of your computer in the coming months. 


Good programming, 
Tim Hartnell 
London, September, 1982 
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Programming in BASIC 


BASIC is the world’s most popular programming language — 
because it is the easiest one to learn. Computer languages are 
spoken of in ‘levels’; a high level language is one which is close to 
English, a low level one is closer to the weird patterns of ones and 
zeros a computer understands. 

BASIC is a high level language. Even if you have no experience of 
programming at this point, you'll be pleased to learn you already 
know quite a bit of BASIC. 

Words like PRINT, STOP and AND mean just about the same 
thing in BASIC as they do in English. So does IF and THEN and OR. | 
hope you can see already that programming is simpler than 
perhaps you had thought it would be. 

Essentially, when you write a program, you give the Spectrum a 
series of instructions to follow. The Spectrum, like all computers 
built to date, has quite extraordinary calculating and decision- 
making abilities, but absolutely no imagination. If you tell the 
computer to do something, it will do it. If you leave out part of the 
instructions it will attempt to carry out the rest without realising 
that something has been left out. 

Imagine you had a robot servant, and you wanted it to draw a 
bath. GO TO BATH might be the first instruction in its program. IF 
BATH IS EMPTY THEN TURN ON TAP. IF BATH IS FULL THEN 
TURN TAP OFF. The robot would happily trundle to the bathroom, 
dip its electronic hand into the bath and discover it was empty, and 
then turn the tap on. It would stand there forever, waiting for the 
water level to reach a point where it would be detected, so the tap 
could be turned off. But because you forgot to include an 
instruction like CHECK IF PLUG IN PLUGHOLE and IF PLUG NOT 
IN PLUGHOLE THEN PUT PLUG IN PLUGHOLE, the robot would 
not think to do this. 

This is exactly how your Spectrum works, by following explicit 
instructions from you. And believe it or not, with a few 
reservations, your Spectrum could more or less follow the 
instructions or program you gave the robot... because those 
instructions contain a number of words of the BASIC programming 
language. 
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Here is a simple program for the Spectrum which | am sure you 
can understand, even without any training in programming 
languages. 


LETA = 20 
LETB=A+A 
IF B = 40 THEN PRINT “B EQUALS 40” 


This is straightforward English, yet it is also BASIC. The first line 
of the program (LET A = 20) is simple, as is the second one (LET 
B =A+A). The third line looks remarkably similar to one of the 
earlier robot instructions such as IF BATH IS EMPTY THEN TURN 
ON TAP; IF B = 40 THEN PRINT “B EQUALS 40”. You could 
almost type this program into your Spectrum, and it would work, 
with the Spectrum printing up instantly B EQUALS 40. 

The only thing these three lines need to turn them into a program 
is anumber before each line. The following is a program which the 
Spectrum would act on. 


10 LETA=20 
20 LETB=A+A 
30 IF B = 40 THEN PRINT “B EQUALS 40” 


The line numbers can be any numbers you choose (between 1 
and 9999). The computer automatically sorts them into order. We 
tend to number programs in steps of 10 because it leaves room 
between the lines if we decide to add something else in later. 

So you see, already you've had some experience of the BASIC 
programming words LET, IF .. . THEN and PRINT. The equals sign 
and the plus sign you will know from ordinary arithmetic. In many 
cases, they behave in BASIC just like they do in ordinary sums. 

Before we actually plug in the Spectrum and do some 
programming, I'd like to introduce you to another word in BASIC 
which, as you'll discover in a moment, you already know. In fact the 
word is really two words — GO and TO. 

In BASIC they always come together as GO TO, andare available 
from a single key on the Spectrum (the G key). You'll recall we had 
our robot start the bath-drawing program by saying GO TO BATH. 
In the world of computer programming, we say GO TO a 
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number. We could add a final line, 40, to our three line program 
above which reads: 


40 GOTO30 


This would mean that the computer would execute line 30, and 
print out B EQUALS 40 then would move on, in sequence, to line 
40, where it would find the instruction GO TO 30. Without 
questioning why you have told it to do this, the computer would 
follow instructions, and GO TO line 30, where it would find the 
instruction to print out B EQUALS 40 which it would do. It would 
then proceed to line 40 where once again it would strike the 
instruction GO TO 30. . . . and of course it would do so, until the 
end of time, or until the screen was full of the words B EQUALS 40. 

We can proceed no further without having the Spectrum turned 
on, so get out your computer and — following the instructions given 
in the manual — plug it into the power supply and the television set. 

The keyboard on the Spectrum looks forbidding when you first 
tackle it, all those funny words like MERGE and VERIFY, and the 
mathematical terms including SIN and COS which you had hoped 
you'd left behind for ever at school. Don't worry. Once you know 
your way around the keyboard, you'll find it remarkably simple to 
control, and in the words of the advertisement for the Spectrum’s 
predecessor ‘within days you'll be talking to it like an old friend’. 


The Keyboard 

Two of the most important parts of the keyboard are the shift keys. 
They are on the bottom row, the CAPS SHIFT (in white) in the 
bottom left hand corner, and SYMBOL SHIFT (in red) second from 
the right in the bottom right hand corner. These keys determine 
what you are going to get when you press the other keys, with their 
bewildering array of words and symbols. 

I'll assume from now on that your computer is turned on. Press 
any of the white alphabet keys, and you'll see the word written on 
the key (such as LOAD, LIST or PRINT) appear. This is a ‘keyword’. 
One of the ways the Spectrum makes the best use of its memory, 
and a feature which makes it very easy to program, is the keyword 
system. Simply pressing a key produces the whole word from that 
key. On most other computers you have to type in a word like LIST, 
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DIM or FOR in full. Hold down the CAPS SHIFT key, and press the 
DELETE key (top right hand corner) until everything you've typed in 
so far has been erased. 

Now, press the P key, and the word PRINT will appear. Then, 
press any of the number keys, so you have something like PRINT 
62735 at the bottom of the screen. Now press the key marked 
ENTER (right hand side, one up from the bottom). The screen 
clear and the number you've requested will appear at the top of the 
screen. The computer has obeyed your instruction to PRINT a 
number. The Spectrum generally waits until you have pressed 
ENTER before actually doing anything. 

We'll enter a simple program, to show the keyword system in 
use. Type in the following, after holding down the CAPS SHIFT and 
pressing the 2 key (CAPS LOCK) to get capital letters in the 
program. 


10 INPUT (just press the | key) A (now press ENTER to 
show you've finished the program line) 

20 PRINT A (press ENTER) 

30 GOTO 10 (press ENTER) 


Note that the word PRINT comes from the P key, and GO TO 
from the G key. The spaces in the program listing are added 
automatically. Once you have this in your computer, we can make 
it work, by pressing the R key, which will make the word RUN 
appear, and then pressing ENTER. A flashing cursor will appear at 
the bottom of the screen, showing the computer is waiting for a 
number. Enter any number, then press ENTER. You'll see your 
number appear at the top of the screen. You know from the 
discussion of GO TO BATH we had earlier, that the final line of the 
program (line 30) sends action back to line 10, so the computer wil 
continue to execute this program loop for ever, or until we stop it. 
You can stop this program by entering any letter except A when the 
Spectrum is waiting for a number. The computer will stop, printing 
an error message at the bottom of the screen. 

Once you've stopped the program, touch the A key, press 
ENTER, and the screen will go black, and then clear, with the 
copyright notice at the bottom of the screen. The keyword 
available from the A key is NEW, which wipes everything in the 
computer's memory, so you must use it with care. 
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So, you've learned that the white keywords are obtained by 
pressing the key required after you have entered a line number. 
Let's look at the words in red on the keys. Hold down the SYMBOL 
SHIFT key, and then press the Y key. You'll see the word AND 
appear. Still holding down the SYMBOL SHIFT, press the G, and 
THEN will appear. So red words on the keys, and the symbols like 
+ and €, are obtained by holding down the SYMBOL SHIFT, then 
pressing the required key. 

You get the green words above the keys by pressing down both 
shift keys together, then letting them go, and touching the key 
required. Try it now. Press down the CAPS SHIFT and the 
SYMBOL SHIFT keys together, let them go, then touch the A key. 
The word READ should appear. 

Itis a little more difficult to get the words in red under the keys. 
Press down both shift keys together, then release the CAPS 
SHIFT, but do not let go of the SYMBOL SHIFT. Then press the X 
key. The word INK should appear. You may have to practice this a 
little to ensure you get the word INK (or BEEP, PAPER, FLASH or 
BRIGHT) every time. 

Read through this whole section again, doing each of the 
exercises, until you're sure you understand it. Don’t worry 
seems to take a long time at present. You'll be pleasantly surprised 
at how quickly you will learn the keyboard system. At the end of 
this introductory chapter we have a program designed to teach you. 
where the alphabetical keys on the Spectrum are, to encourage 
‘touch typing’, but first | want to introduce you to the first real 
program in this book. It may take you a while to type in, but please 
persevere. Once you've entered the whole of this program into 
your computer, press RUN and play the game aginst the Spectrum. 

The program plays ROCK, SCISSORS and PAPER, a computer 
version of the human game in which two players hide their hands 
behind their backs, and bring out a hand making a symbol for rock (a 
closed fist) scissors (two fingers pointing) or paper (open hand). 
Rock beats scissors (because a rock can blunt scissors) scissors 
beat paper (because scissors can cut paper) and paper beats rock 
(because paper can wrap a rock). You enter your choice of ROCK, 
SCISSORS or PAPER in this program by entering the numbers 1, 2 
or 3. The choice they represent is shown at the top of the screen 

Before you enter the program, the following comments may 
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help. You get the little copyright symbol in line 20 by pressing down 
both shift keys, then holding down the SYMBOL SHIFT and 
pressing the P key. The equals sign (first used in line 30) is from the 
L key. You get it by holding down SYMBOL SHIFT, then pressing L. 
Remember to press ENTER after each program line is written, to 
get it to move from the bottom of the screen into the program 
proper at the top. If the line refuses to move up. a flashing question 
mark will appear somewhere in the line. This is the computer's sign 
to you that you have made a mistake in the line. Look carefully at 
the point where the question mark is flashing to discover your 
mistake. 

The colon (:) after the word CLS (which stands for Clear the 
Screen) in line 60 is found on the Z key. Hold down SYMBOL SHIFT 
and press Z to get it. Line 70 has a single apostrophe (') after the 
word PRINT, before the opening quote marks (“). You'll find the 
single apostrophe on the 7 key, and it is obtained by holding down 
the SYMBOL SHIFT, and pressing the 7. The double quotes come 
from the P key. 

You need to exercise a little care to get line 170 into your 
computer correctly. After 170 LET C=, you need the word INT 
which is not typed in letter by letter, but is obtained from the R key. 
Press both shift keys, release them, then press R and INT will 
appear. The open bracket is on the 8 key (hold down SYMBOL 
SHIFT while pressing the 8 key) and the word RND is available from 
the T key. Press both shift keys at once, release them, then press 
T. The asterisk (*), which stands for multiply in BASIC, comes from 
the B key, and is obtained by holding down SYMBOL SHIFT as you 
press B. 

Do not try to spell out words like AND, OR, THEN and TO, but 
id them on the keys. These words are obtained by holding down 
SYMBOL SHIFT, then pressing the relevant key. 
Now, enter the program, then return to the book. 


10 REM ROCK, SCIssoRs, PAPER 
22 REN © HARTNELL, 1982 


6@ CLS : PRINT “ROUND NUMBER * 


7@ PRINT *"2 -_ROCK" 
8@ PRINT “2 - scrssara” 
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9@@ PRINT “3_- PAPER” 

A@@ PRINT ‘"ENTER 1. 2 OF 3" 
i2e aR INT Povou PICKED “; 
i3@ IF 8=1 THEN PRINT Roc 


7 


are 
44@ IF S=2 THEN PRINT “Scrssors 


45@ IF B=3 THEN PRINT “PAPER” 
46@ PRUSE Se ae 

270 LET C=INT i(RNDs3343 

288 PRINT °"T PICKED "3 ' 

390 IF C=2 THEN PRINT “ROCK* 


2@@ IF C=2 THEN PRINT “ScrISssors 


21@ IF C=3 THEN PRINT “PAPER” 
22@ LET b=2ha 


23@ IF B=C_ THEN PRINT “"IT*S A 


WIN'*: LET COMP=COHPei: GO To 
25@ IF 8=1 AND C=2 OR B=2 AND 


“26@ PRINT 7"SCORE"’°“HE> “; COMP 


29@ IF HUM=COMP THEN PRINT ‘‘"T 


HAT GANE WAS A DAA” 


3@@ IF HUMN<COMP THEN PRINT °""F 


WON THAT GANHE!" 


Bae IF COMP <sHUM THEN SPRINT “ety 


OU WON THAT GANE:" 
This is part of a game in progress: 


ROUND NUMBER 7 

2 = 8eS8sors 

3 — PAPER 

ENTER 1. 2 OR 3 
YOU PICKED PRPER 
I PICKED scrasars 
I WIN! 

ScoRE 

HE> 2 your 3 
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10 


20 


30 


40 


50 


60 


go through the program line by line, to try and explain 
what is happening in each line. 

h REM, which stands for REMark. REM 
statements are included in programs only for the benefit 
of humans reading the program listing. The computer 
ignores everything that appears in a line after the word 
REM. 


This is another REM statement, also ignored by the 
computer. 


LET means much the same in BASIC as it does in English. 
The word COMP (short for computer) is called a variable, 
which is any combination of letters and numbers (starting 
with a /etter) which is assigned (or made equal to) a 
numerical value. COMP holds the computer's score, and it 
is set equal to zero at the start of the game. 


This line does the same for a variable called HUM, for the 
human's score. 


FOR... This is the start of what is called a ‘FOR/NEXT 
loop’. The computer generally goes through such a loop 
the number of times indicated by the last number in the 
FOR statement. Look down to line 280 (NEXT A). This is 
the end of the FOR/NEXT loop. In this program, the 
computer runs the gauntlet from line 50 to line 280 ten 
times, carrying out all the instructions within the program 
as it does so. 


CLS, as mentioned before, Clears the Screen. The colon (:) 
allows you to add a second statement to the line. PRINT 
does just that, printing the words in quote marks following 
the command PRINT. As well as that, the computer prints 
the value of A. The first time through the FOR/NEXT loopA 
is equal to one, the second time to two, and so on until A 
equals ten the last time through the loop. So PRINT 
“ROUND NUMBER ";A produces ROUND NUMBER 4, 
or whatever number A is equal to, on the screen. 


100 


110 


120 


130 
150 


160 


170 


[a 
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70-90 These three lines print the numbers 1 to 3, and the word 


(such as ROCK) they represent. Note the apostrophe 
(from the 7 key) before the opening quotes in line 70. This 
moves the print position down a line, so that there is a 
blank line on the screen between the words ROUND 
NUMBER 4 and 1 — ROCK. 


The apostrophe is used again to put a blank line before 
ENTER 1, 2 OR Bis printed. 


The INPUT command waits until a number is entered by 
the user. In this case, the number you enter is assigned to 
the variable B. 


This prints YOU PICKED. 


These three lines interpret the number you've entered 
(1, 2 or 3—assigned to B) and decide which word (ROCK, 
SCISSORS or PAPER) this stands for, and prints it up on 
the screen. 


PAUSE. This puts a short delay into the program, to make 
look as if the computer is ‘thinking’. The number after 
the word PAUSE is in fiftieths of a second, (sixtieths in the 
US), so PAUSE 50 is a delay of one second. PAUSE 0 will 
wait forever, or until any key is pressed. 


This is a very interesting line, in which the computer 
generates a random number. Random numbers are very 
useful in games programs. The RND function (both shift 
keys, then press T) generates a random number between 
zero and one. You can show this by typing in PRINT RND, 
then pressing ENTER. You'll get a number between one 
and zero. Line 170 turns it into a whole number in the 
range one to three. If the 3 which follows the asterisk 
ithin the brackets was changed to, say, a 10, then C 
would be set equal to a number chosen at random by the 
computer between one and ten. However, in this case we 
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want the computer to choose 1, 2 or 3, so we multiply 
RND by three. 


This begins the statement to tell you what the computer 
has chosen. 


These lines change the 1, 2 or 3 which C has been set 
equal to into ROCK, SCISSORS or PAPER. 


The variable D is set equal to 260. Thi so, at the end of 
es 230 and 240 (GO TO D), the computer will GO TO line 
260. The Spectrum is quite happy to GO TO results of 
calculations, so you could (although it would serve no 
purpose) end lines 230 and 240 with GO TO 2*130 (two 
times 130) 


If Band C are the same number, the computer knows that 
it and you have chosen the same thing, so prints IT'S A 
DRAW, then GOes TO D (i.e. GOes TO 260) 


This complicated looking line determines if the com- 
binations of C and B result in a win for the computer. 
IF they do THEN the computer PRINTs | WIN and adds one 
to its score (LET COMP = COMP + 1). Although this 
statement looks a little odd when compared with normal 
arithmetic, it really means ‘make the variable named on 
the left hand side of the equals sign equal in value to the 
old value of the variable, plus one’. Don't worry if you don't 
understand this right now because the reason for it wil 

gradually become clear as you use lines like this more 
often. 


This checks the human win condition, and if it finds it, adds 
one to the human score (LET HUM = HUM + 1) 


This prints out the score. Notice that there is a single 
apostrophe before the opening quote marks, and two 
single apostrophes after the quotes which follow SCORE 
and before the quotes which precede ME. As you've no 
doubt seen from running the program, this puts two blank 
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lines in before the line starting ME is printed. The pointing 
arrow head, the ‘greater than’ symbol, which follows the 
words ME and YOU is obtained from the T key, when you 
press it while holding down the SYMBOL SHIFT key. 


270 This PAUSEs for two seconds so you can read the result of 
the round. 


280 NEXT A is the end of the FOR/NEXT loop which started in 
line 50. As explained earlier, this sends action all the way 
back to line 50, where the value of A is increased by one, 
and then the following lines are executed in order. 


290 If the value assigned to the variable HUM is the same as 
the value assigned to the variable COMP, then the 
Spectrum knows that the game is a draw, and prints up 
the message (after skipping two lines, using two single 
apostrophes) “THAT GAME WAS A DRAW". 


300 IF HUM is less than COMP, then the computer knows that 
you have won. 


310 IF COMPis less than HUM, then the computer knows that 
you have won. 


| hope this explanation does not seem too bewildering. | am 
trying to get across the fundamentals of programming the 
Spectrum in BASIC in the simplest possible way, and a lot of 
ground must be covered in a short time. 


We'll be looking at ways of making the most of the Spectrum's 
colour capabilities (and sound) a little later in this book, but for now 
I'd like to introduce you to a few of the simplest uses of the colour 
commands, so yo.’ can see how well these can be used to enhance 
programs. A new version of the ROCK, SCISSORS, PAPER 
program, with colour commands added, follows. You can easily 


modify the program you now have by using the Spectrum's edit 
fac 
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PRPER 


40 REM ROCK, SCISSORS 
a9 BEM @ HARTNELL, i862 

30 LET COoMP=e 

4@ LET HUM=2 

S@ FOR A=i TO 128 

Be CLS : PRINT INK 2; “ROUND NU 
MBER “; INK_33A 

7@ PRINT INK 1; /°"4 -_ROCK" 

&@ PRINT INK 2; "2 - SCISSORS" 

5@ PRINT INK 3; "3 _-_PRPERT 

400 PRINT _INK 6; PAPER 2; ° "ENTE 
Rai, 2 OR 3" 

226 INPUT B 

a3@ PRINT INK_B; "YOU PICKED "; 
330 IF B=1 THEN PRINT "ROCK" 
248 IF B=2 THEN PRINT “SCISSORS 
45@ IF 6&=@ THEN PRINT “PAPER" 
46@ PAUSE 52 

370 LET C=INT {(RNDsG)+1 

a6@ PRINT INK C;/"I PICKED "3 
35@ IF C=i THEN PRINT "ROCK® 
,2@@ IF C= THEN PRINT “SCISSORS 
24@ IF C=3_ THEN PRINT “PAPER” 
Be LET D=268 

530 IF @=C THEN PRINT FLASH 1; ”’ 
“T7’s_A DRAWI": GO TOD 


=2 OR C=2 AND & 


=COMP THEN PRINT °°"T 
TF HUN<COMP THEN PRINT “‘"T 
TF COMP<HUM THEN PRINT “""Y 


You'll see in line 60 the words INK 2 have been added. To get 
these into the line, press LIST (the K key) then 60, so you have LIST 
60, then press ENTER. The word ‘scroll?’ will appear at the bottom 
of the screen. Press N to stop the listing scrolling further, then hold 


down the CAPS SHIFT key, and press the 1 key, which has the 
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word EDIT above it. The line the cursor (a greater than sign) is 
pointing to (in this case, line 60) will appear at the bottom of the 
screen. We want to insert the words INK 2 after the word PRINT, 
so holding down the CAPS SHIFT, press the 8 key. You'll see the 
cursor move across in the direction of the arrow on the 8 key. Once 
the cursor has gone past PRINT, but before it goes any further, take 
your finger off the 8 key. Now, press down both shift keys at once, 
and then release the CAPS SHIFT key. Still holding the SYMBOL 
SHIFT key down, press the X key, and — if all is well —the word INK 
should appear. Follow this with a 2, then a semicolon (SYMBOL 
SHIFT, then the O key), and then press ENTER again. You'll see the 
amended line take the place of the original line 60. 

RUN the program again, and you'll see the words ROUND 
NUMBER 1 appear in red. The colours are chosen by the numbers 
zero to seven (as will be explained in more detail later). INK 1 will 
cause the letters following it to be blue, 2 will turn them red, and so 
on. (You don't need to run a whole game through before 
continuing. Just enter a Q when asked for your number, and the 
program will stop with a puzzled error message, because it doesn't 
know what Q means.) 

Press EDIT (CAPS SHIFT and 1) again, and line 60 will reappear at 
the bottom of the screen. Using the CAPS SHIFT/8 combination, 
move the cursor across to go past the quotes after NUMBER and 
add INK 1, then another semicolon (which must join these extra 
commands in a PRINT statement together) before the A. Return 
the line to position within the program with ENTER and RUN the 
program again. You should see the words ROUND NUMBER 
appear in red, and the number 1 come up in blue. 

If the colours are unclear, fiddle with the channel tuning, and the 
colour control on your television, until you can see the red and blue 
properly. Different makes of television reproduce the colours 
differently, so you may find one colour is more intense than the 
others. 

You can now go through the whole program, making the 
necessary changes, to add colour throughout. The lines w h 
need to be modified are 60, 70, 80, 90, 100, 120, 180, 230, 240, 
250 and 285 (which must be added . will sort itself 
automatically into order). RUN the program again, and see how 
well the colour commands enhance the program and give it life. 
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Touch-typing Tutor 
Our final program in this introductory chapter to the book is 
designed to help you find your way around the keyboard. When you 
RUN the program, it will put a number or a letter of the alphabet, 
chosen at random, on the screen in the approximate position it is 
on the keyboard. You have a limited time in which to press the 
designated key. If you get it wrong, the forgiving computer gives 
you another go. You'll be pleased to see how quickly you'll learn the 
layout of the keyboard using this routine 
lf you find you do not have enough time to find the keys when 

you first run this program, change the 100 in line 180 into a bigger 
number. Start with 300, and gradually decrease it until you feel the 
time is about right for your present level of typing prowess. Be 
careful to get the numbers and letters in the DATA statements 
(lines 80 to 110) correct, as these control where the various 
numbers and letters will be printed. After you've run through the 
program a few times, come back to this book for a line by line 
breakdown of it. 

28 REN KEYBOARD TUTOR 

20 DIM AS(36,5} 

3@ LET SCORE=6 

428 FOR A=1 TO 36 


58 READ BS 
6@ LET be aed =BS 


$6 DATA Sess" “20605", "30606 


’ 
“, "48611", "586146". "60617"'," 78629 
ie 7 "Be628"; “99526", "99629" 
*a@ DATA’ "A1282","B1517","C1512 
“, "D128", “E@SQ@8",“Fi211",."“GiPid 
eer SMHAIDIAz, “Tees23™", “J1i220" 
18R oean, “K2223","L1226"."“M1523 
i We i + “-P@929", “86982 
."Tegia 
visze" 
“,"X2586"."¥@917","Zi505~ 
226 REN 
i3@ REM THE TEST 
344@ REM 
pte A=1i TO 18: BSEEP .G2,-16 


=255 IF INKEY$i3"" THEN GO TO 15 
26@ LET S=INT_ (RND#36) +1 
3278 PRINT FLASH 31; PAPER 6;AT U 
PL (ASIBI (2S FO 33}}3,VAL (AS(B) (4 
FO 33;R$t5,13 


10 


20 


30 
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28@ FOR C=1 TO 188 
23@ LET CS=INKEYS 
2eaa IF c#$is"" THEN GO TO 266 


220 PRINT AT_@,9; INK 7; PAPER 

FLASH 2: BRIGHT i; “YoU TOOK T 

LONG" 

BES FOR D=1 TO 78: NEXT D 

eee RE*t0" see 

24e 6 

B6e IF CS$=AS{B,1) THEN LET SCOR 

E=SSCCRE+1: BEEP .25,SCORE#4: PRI 

NT AT 16,8; PAPER 6, INK 2; “WELL 

DONE. YOUR SCORE ITS NOU “; SCORE 

B65 IF C$<>AG{(B,2} THEN PRINT A 

7 @,0; INK 3; PAPER 6; FLASH 4; 
SORRY, BUT THAT VAS WRONG"; TA 

B 18; "TRY_AGAIN’: GO TO i78 

278 FOR D=1 TO 1ee 


3@@ CLS : PRINT AT 6,2; FLASH 3 
> BRIGHT 41; PAPER 6; INK 2; “YOUR 
SCQRE WAS “;SCORE;“ OUT OF 18” 
310 IF SCORE;>7 THEN _PRINT_AT_1i6G 
27; FLASH 1; INK 4; PAPER 7; BRI 
GHT 1; "CONGRATULATIONS!" 


This is a REM (remember REM stands for remark) 
statement which the computer ignores. Note you can put 
as many spaces in a REM statement as you like. 


Line 20 sets up an array. An array is used when you want to 
store a list of numbers or words and refer to the item in the 
list by referring just to the position it occupies in the list. 
Line 20 sets up an array called AS. The dollar sign means 
that the items stored in the list are words, within quote 
marks, rather than numbers. The first element of the array 
is referred to as A$ (1), the second as A$ (2) and so on. 


Sets a variable called SCORE to hold your score of the 
number of letters you find correctly. 


40-70 This is a FOR/NEXT loop, as in the previous program. Line 


50 (READ BS) acts in conjunction with the DATA 
statements (lines 80 to 110). It reads each of these in turn, 
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80 
-110 


120 
140 


150 


155 


160 


170 


one for each cycle through the loop. The first time through 
the loop it reads the first item in the DATA line (“10602”) 
and assigns this to BS. Line 60 then assigns A (1) to this 
value of BS. The next time through the loop, when A 
equals two, so line 60 reads, in effect, LET A$ (2)=B$, and 
this time B$ has the value of the second item in the DATA 
statement, “20605”. This continues until all 36 items in 
the AG list have been assigned a DATA statement. 


The DATA statements. Notice that items are enclosed 
within quote marks, and separated by commas. 


Three REM statements 


This sets up another FOR/NEXT loop. FOR/NEXT loops do 
not have to be called A; any letter of the alphabet 
acceptable, so FOR J=1 TO 10 or FOR M=1 TO 10 would 
do as well. BEEP .02, — 10 makes a short sound (BEE 
iscussed in detail later in the book), and CLS clears the 
screen. 


INKEYS, which you'll find above the N key, reads the 
keyboard, waiting for a key to be pressed. This line waits 
until your hands are clear of the keyboard before 
continuing. 


This sets B equal to a random number between one and 
thirty-six, to choose one of the numbers zero to nine, ora 
letter of the alphabet. 


This is a fairly complex line, which prints the letter or 
number on the key A$ (B, 1), at its correct location, which is 
done by PRINTing AT the second and third numbers in the 
DATA statement down (so if the second and third 
numbers are 12, it would print 12 lines from the top), and 
the fourth and fifth numbers across (so if the fourth and 
fifth numbers in the DATA statement were 05, it would 
print five spaces across). In other words, each of the DATA 


é 


180 
-210 


220 


225 


230 


240 


260 


265 


270 
-280 


290 


300 
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statements contains either a letter or number as the first 
element, and the final four elements are its location on the 
screen, items two and three being the position down the 
screen, four and five the position across. 


This FOR/NEXT loop waits a designated time for a 
keypress, the length of the delay being set by the number 
at the end of line 180. If a key has been pressed, line 200 
detects this, and sends action to line 260. 


If you don’t press a key in time, the computer prints up the 
message YOU TOOK TOO LONG 


This is a short delay, using a FOR/NEXT loop. You can use 
PAUSE or an ‘empty’ FOR/NEXT loop for a delay. 


Sends action back to line 150 for the next test. 


At the end of ten goes, sends the computer to line 300 to 
print out the final score. 


Checks to see if the key pressed is the same as the one 
printed on the screen, and if it is adds one to the SCORE, 
and prints out the message WELL DONE, YOUR SCORE 
|S NOW 3, or whatever your score happens to be. 


If the key pressed was not the same as the one shown on 
the screen, prints SORRY, BUT THAT WAS WRONG, TRY 
AGAIN, then sends action back to line 170 to let you try 
again. Notice that there is a single comma after the close 
quote marks following the words TRY AGAIN. Leave this 
comma out, and see how this changes the display. 


This is a delay before the next letter or number is printed 
on the screen. 


Sends action back to line 150. 


Prints out the score. 


—E—————————— 
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310 Adds a congratulations message if a score greater than 7 
has been achieved. 


You'll find this is a very useful program to help you gain familiarity 
with the keyboard layout. 

The material in this chapter has been somewhat condensed but | 
hope that careful reading of it, and entering the programs at the 
right time, has given you a fair introduction to programming in 
BASIC on the Spectrum. This information should complement that 
given in the two manuals which came with your computer to help 

* you become a proficient programmer fairly rapidly. The rest of the 
book will assume you have mastered the information given in this 
chapter, and that you understand the introductory manual, and 
much of the early material in the second manual which came with 
your computer. 
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Exploring the Spectrum’s 
colour 


The Spectrum has six colours (dark blue, red, magenta, green, 
cyan, and yellow), plus black and white. Each colour is given a 
number between 0 and 7. The relationship between colours and 
numbers is: 


Black 

Dark blue 

Red 

Magenta (a sort of pinkish purple) 
Green 

Cyan (a light blue) 

Yellow 

White 


NOORWN-8 


If you have a black and white television, or turn the colour control 
right down on your colour TV, you'll see these colours, printed in 
this order, form a range of greys from black to white. Try this: 


10 FORX=0TO7 

20 PRINT INK X; “ @ ™” (two solid squares obtained by 
pressing the white shift key, followed by key ‘9’ and 
then key ‘8’) 

30 NEXTX 


The colour codes also relate to how the colours are produced by 
the television. A colour TV uses blue, green and red light. All other 
colours can be made up of a mixture of these three. Magenta is 
made by mixing blue and red and its code, 3, is the sum of the other 
two colours’ codes. 

When you first switch on your Spectrum you will see that the 
entire screen is white and you are typing on the screen in black. Itis 
easy to add a splash of colour by using the BORDER command to 
be found on the B key. Try this: 


BORDER 1 (followed by ENTER) 
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This turns the border dark blue. You can put any one of the eight 
numbers after the BORDER command, and after pressing ENTER 
the border around the screen will change to that colour. You can 
also choose what are called INK and PAPER colours. The PAPER 
colour is the colour of the rectangular page inside the border, and 
the INK colour is the colour of the text and graphics characters that 
you type in. Getting the PAPER and INK commands is a little harder 
than the BORDER one. To change the PAPER to a new colour, you 
first press the white shift key on the left of the keyboard, then the 
red shift key on the right, and lastly, still holding down the red shift 
key, you press the ‘C’ key. Try some of the following (note that as 
with the BORDER command above, you don’t need line numbers 
for these examples): 


PAPER 3 : CLS (the CLS command is on the ‘V’ Key) 
PAPER 2: CLS 
PAPER 6: CLS 


You see the main rectangle of the screen's page turn first 
magenta, then red and then yellow. As you probably know, you can 
put any of the eight colours’ numbers after the PAPER command. 
But to get the colour all over the page, you must then follow your 
PAPER command by a CLS (clear the screen) command (there is a 
way of avoiding this — but I'll return to that later). 

The INK command is just as easy to use. To get INK you press 
the CAPS SHIFT key again, holding it down you press the 
SYMBOLS SHIFT key on the right, and still holding the red shift key 
down, press the ‘X' key. The INK command is used in much the 
same way as the PAPER one. 

To see the effect of coloured text try: 


10 PAPER7 

20 INK3 

30 CLS 

40 PRINT “Testing” 


If you run this program you'll see the computer prints the text in 
magenta on a white background. You can put any colour text on top 
of any colour paper, but many of the colours do not mix very well. 
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To see what | mean change the above program to the following, 
and run it. 


10 PAPERS 

20 INK4 

30 CLS 

40 PRINT “Testing” 


It is very difficult to see the words. Red and-magenta don’t mix 
too well either and typing magenta text on top of a green paper is 
particularly difficult to read. 

You can use the colour commands to colour just a part of the 
screen, rather than change the whole page within the border. To 
see this, try the following: 


PAPER 7:CLS:PRINT INK 5; PAPER 1; “Testing” 


As you can see, just the area behind the words was in light blue, 
with the text in dark blue. 

There are four things that you can do to the colour and all the 
BASIC words for these can be found below the bottom row of keys 
on your Spectrum; they are FLASH, BRIGHT, OVER and INVERSE. 
The last two of these are not restricted to the use of colour, but 
they have many uses when dealing with colour. 


BRIGHT 

The BRIGHT command is easy to understand. This is used to make 
the colour of either the text (INK) or the background (PAPER) stand 
out a little more. Using it the colours can be made a little brighter 
and in some cases a hue or so lighter. This routine shows what 
BRIGHT does: 


10 FORx=0to7 
20 PRINT PAPER x;BRIGHT 0;" ";BRIGHT 1," "; 
30 NEXT x 


This prints spaces (think of them as little blocks of PAPER) in 
blocks of two. The first is the normal colour and the second is the 
same colour made brighter. As you can see the BRIGHT command 


————————————— 
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is followed by either a zero or a one. Zero turns BRIGHT off, and 
one turns it on. 

This next program produces the same result, putting the 
BRIGHT control in a loop: 


10 FORx=0TO7 

20 FORy=0TO1 

30 PRINTINKx; BRIGHT y;" "; 
40 NEXTy 

50 NEXTx 


FLASH 

The next word is FLASH and it is used rather like BRIGHT. It too is 
followed either by a zero or a one depending on whether it is ‘on’ or 
‘off’. We could make the BRIGHTer squares in the last example 
flash for instance with this routine: 


10 FORx=0TO7 
20 FORy=0TO1 
30 PRINT INK x;BRIGHT y; FLASH y;" "; 
40 NEXT y: NEXT x 


The routine shows that FLASH flashes between the colour of the 
INK and the colour of the paper. If you have just switched on then 
the INK is set to INK 9. INK 9 is a special statement which tells the 
Spectrum to print in whatever INK would be the best contrast to 
the present PAPER colour. The program you've just run shows that 
for the four darker colours the Spectrum chooses white as the INK 
and the other lighter colours have black. Hence the BRIGHTened 
dark coloured squares flash between colour and white and the 
lighter colours flash between colour and black. 

INK Bis also a valid statement. It means that the last colour is to 
be retained. You can use these two numbers with PAPER 
commands as well, and they have the same effect. Thus, PAPER8 
and PAPER 9 are valid statements. You can use the number 8 after 
the FLASH and BRIGHT statements, but not the 9. In all cases the 
number 8 means that what ever attribute that square was set to 
will be retained when a new characte! inted on top. 
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2a PRINT PREFER 7iAT 19, 
INK 2; 7B"; ; 
a; tote ink’ eto A~ 


128 colours 

Being able to print two colours in each character square can be 
used to advantage to create up to 128 colours on your Spectrum. 
You need first to define a graphics character which looks like a very 
small chess board (as is on the ‘A’ key of the ZX81). 

By making the PAPER one colour and the INK another you will 
effectively make half of the character one colour and the other half 
the other. Because the colours are spread evenly, the two colours 
mix to form a new one. Red dots and yellow dots mixed in this way, 
for example, give a good orange. Try it now, and see just how many 
different colours can be produced on the Spectrum with the 
program. 


1@ REN COLOURS 


5@ FOR P=8 TG 7 
9@ FOR I=@ TG 7 
1@@ FOR B=09 TO 1 
Tige.BRENT PAPER Pz; INK I; SRIGH 
126 NEXT_B: NEXT I: NEXT F 
4150 PAUSE 200 
44@ CLS: PRINT “AND NOW FULL & 
CREEN- +2": PAUSE 206 
POKE 29692. 100 


FOR K=8 TG 53 
PRINT PAPER P; INK I: BRIGH 
PPPPPPPPPPPPPePPprEPPpePPppPpP 


220 REM ALL '"P‘S BRE GRAPHICS 
CHRS ON KEY ‘*P* 
23@ NEXT K 
246 POKE 25692.196: 
REM AUTO SCROLL 
25@ NEXT B: NEXT IT: NEXT F 
26@ Star 
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You could do this another way by drawing cross-hatched lines 
across the screen using the DRAW and PLOT commands, drawing 
the lines so that they are one pixel (dot) apart. By drawing in one 
INK on top of a different coloured paper the same effect could be 
obtained as when the graphics character was used. 

The Spectrum can produce a very fine display by drawing lines 
with the DRAW command which interact to give a kind of 
‘interference pattern’. NETWORK is a good demonstration of this. 

This program plots the screen's central position over and over 
again each time drawing from that point to a position on the edge of 
the screen. If you draw to every edge position you will eventually 
get a solid mass of colour. But by drawing to pixels at least one 
pixel apart very interesting patterns emerge. This is because the 
ines your Spectrum draws are not completely straight, but vary in 
fixed ways depending to what point and from what point they are 
drawn. The program draws all INK colours against all possible 
different PAPER colours, and the effect depends on the colour mix 
involved. Some colours seem to interfere with each other more 
than others, and others appear to swim around the screen in 
eddies caused by the pattern. 


2@ LET 2=i 

3@ LET ink=(RNDS5S) +2 

4@ LET paper=t(RND#S5i +i 

S@ IF ink=paper THEN GO To 3s@ 
5S PRPER paper: INK ink: CLS 
69 FOR A=i TO 2 

7@ FOR X=8 TO 254 STEP 2 om 

6@ PLOT 126,88: DRAW (-127F £2) + 


2 F Y=@ TO i?5_STEP 2 
338 PLOT 126.08: BRAY i2arez.Ze- 


14@ NEXT A: PRUSE 188: 66 TG 2g 


The next program is at least as attractive as NETWORK. I've 
called it ICESTAR. It draws a many-armed star in white and then 
using a technique which adds a new dimension to your Spectrum, 
overlays a new PAPER colour on top of (or underneath) the 
snowflake. Usually, as you'll recall, to change the PAPER colour 
you need to first state the colour number, and then use the CLS 
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70 Using the Spectrum in business 


48 PRINT °"S3 - Print out by a: 
List name" 
S@ PRINT °“4 - Fraint out by ti 


tle" 
6@ PRINT ‘"S - Search for an a 
rtist™ 
eee PRINT °“6 - Search for a ti 
e" 


6@ PRINT ‘“"“? - To save databas 
9@ PRINT ‘“& - To stop" 


23@ CLS 

42@ IF A=4 THEN GO SUR fiz 

43@ IF A=2 THEN NEXT ut 

140 IF A=3 THEN GO SUB 638 

35@ IF A=4 THEN GO SUB 67a 

160 IF A=5 THEN GO SUB 7108 

27@ IF A=6 THEN GO SUB See 

18@ IF §8=7 THEN SAVE "DATR" 
19@ IF A=8 THEN STOP 

20@ GO TO 2e 
gare BIM F$(13@,24) DIM ES(i3a 
r= 

220 POKE 235692,.8 

23@ FOR J=i TO 23€@: CLS 

24@ PRINT AT @,@; INK 2; “Enter 
“Z" to terminate","new entries" 
25@ PRINT AT 1@,4ia; "Item numbe 
“3 FLASH tj 

260, INPUT "Enter artist’compase 
co; 


ea7e@ IF Ag="Z" THEN GO TO 308 
2B@ PRINT “RE 
292 INPUT “Enter titte “; TS 
3@@ PRINT ‘TS 
310 INPUT "Enter classi fication 
320 PRIN rk 4 

“'TF this is ca 
Press “; INVERSE 1; "ENTER 
ERSE @,"“if not, press any 
“then ENTER" 
34@ INPUT 24% 
35@ IF 2#<>"" THEN GO_TO eBde 
360 LET FSiJ} =Ags+ +TS +Cs 
S78 LET Esty =F s+" 
38@ NEXT J 
33e@ CLS 
4@@ PRINT INK 1; FLASH 1; “"Pieas 
e stand by..-sorting = 
4@5 LET G=ii: LET B=ah 
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450 IF 6>G THEN LET G=G-i: IF G 


460 IF FSiB)«Fsi(Z} THEN GO TO <= 
470 LET Z=Z+i: GO TO 44a 


480 LET O$= (Z} 
490 LET FRt ht (B) 
S@@ LET FSt =a 

S1i@ GQ TO 4 


55@ IF B2G_ THEN LET G=G-1: IF G 
S70 IF E(B) <E$tZ) THEN GO TO 5 


(Z) 


67@ FOR M=i_ TO uJ 

66@ LPRINT ESini 

69@ NEXT 

7@@ RETURN r 
718 PRINT “Enter name of artist 


720 INPUT NS: LET NS=N3+" = 
73@ FOR_M=1 7. J 
740 IF_FS. cr st TO 4) =N$t TO 4) TF 


st not found": P 


er ti 

LET N#=N3+" al 
620 FOR M=1 To ul 
830 IF ES{(M}¢ TO 4) =Net TO 4) T 


850 Serer "Title not found": PR 
86@ PRINT ES(H} 


676 PAUSE @ 
S6@ RETURN 
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Sample output from DATABASE: 


BEATLES: HELP: O08 
CHOPIN: VALTZ: 34-3 
HOZART : FANTASIA: RI67 
STONES: RAINGOUW: DES 
VIVALDI: FOUR SEASONS: ES 


FANTASIA: MOZART: K367 
FOUR SEASONS: VIVALDI: Ea 
HELP: BEATLES: 008 
RAINBOW: STONES: DES 
WALTZ: CHOPIN: 3472 


FINANCIAL MODEL/SALES PROJECTION 

As | explained at the start of these programs, the FINANCIAL 
MODEL provides a crude version of a few of the facilities provided 
by spread sheet calculator programs like Visicalc. This program is 
designed to take monthly sales figures, or number of rejects, or 
turnover in staff or any other count of an event which occurs fairly 
regularly, and has been recorded at regular intervals, and from this 
information extrapolate future monthly returns, assuming all other 
factors remain the same. 

When you runit, you'll first be asked if you wanta ‘hard copy’ (i.e. 
dumped to the printer) of the program's output. If you enter 1 for 
yes, all the important output of this program (which will not include 
all the user prompts) will be LPRINTed, as well as being displayed 
on the screen. Next you'll be asked: “For how many months are 
figures available?”. Change months to days, or years or whatever 
time period you are working to. You will then be asked to enter the 
figure for each month. As it is set up at the moment, the program 
can cope with the input of 19 months. Change the ‘A — 1’ at the 
start of line 100 to a zero if you have more than 19 months’ data 

The Spectrum will then work out the approximate change from 
month to month. Comparing month two with month one, month 
three with month two and so on. The average percentage change 
will then be given. 

You are then able to make an extrapolation of results, specifying 
the number of months for which you want figures projected, and 
whether you want this projection based on the last month for 
which you have a figure, or on the average result per month. 
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Once this has been provided, the menu allows you a number of 
choices: 


1 —Torun the projection again (which means you can change 
the starting figure from average to last month, or vice versa, 
and over a longer or shorter period of time) 


2—To run through output again, but without entering figures 
again (although you'll still have to answer prompts for the 
projection) 


3 —To run the program from the beginning (this wipes all 
current data) 


4 —To save this run on tape (which you'll then recapture by 
choosing option 2 of this menu after reloading) 


5 —To stop 


If you've run through the program once without the printer 
working, and you decide you'd like a hard copy, use 5 to stop the 
program when you reach the menu, then restart the program with 
GOTO 10 rather than RUN. Next, select item 2 from the menu, and 
you'll get your figures on to the printer without having to re-enter 
them. 


18 REN FINANC TAL 


SALES PRO FOn 
15 GO SUB 4928 
2@ PRINT ‘‘“For howe man mth 
S are figures ava lable? 


3@ INPUT M: LEY TOT=@ 
406 IF M<2 THEN GO TQ oe 
S@ CLS5_: DIM AIM): DIM Bi) 


8@ PRINT AT 20,0; "Enter Figure 
for month “; FLASH 1; INK 2;A 


100 PRINT AT A-1,0; BRIGHT 4; PF 
APER 1; INK 73" Honth “pas * 57 
AB (174LEN STR$ AAI); AAT; 


20S IF Z=1 THEN SPERE = Mo 
2° “J TAB {17-LEN STRS ATH 
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44190 LET TOT=TOT+AE NEXT A 
325 PRINT AT 2@.@ 
AT _A,@; 


4R@ LET AV=TOTSH: FOR Be To sn 
13@ LET BiB} =(1@@-(A(B-1) #18@7h 


37@ PRINT enth “3; INK 4i;A-i. 
INK @; TAB to month "3 INK 3;5 
3 INK_@;" 3 INT (Bip +.53 5°42" 

475 IF Z=1 THEN LPRINT “Month 
jA-2,"to month "A," - “;INT (BE 


bz] 
Boe LET TOTAL =TOTAL2B (Ad 
Bae NEXT _A 
S30 LET AVERAGE=INT (TOTAL #ia0~ 
(H#-1.)> 7108 
Bae PRINT ° INK 23 "%-------7--777 


2a@ PRINT ‘“Avera change is 
3 INK 2; FLASH 4; AUERAGE; INK @; 


a 
245 IF Z=1 THEN LPRINT “Average 
change is “| AVERAGE; "2%" 

25@ PAUSE 180 

BSS PRINT ° INK 2; "%---------7-77 


26@ PRINT ‘"Now 2 projection oF 
ghange:> 

26s IF Z=1 THEN LPRINT “Now @ P 
rojection of change:" 

270 INPUT “How many pOonth’s Pre 
gee tion do you want? “;NUNBE 


zee PRI * "Final recorded Bont 
h was “;AIM) 
pa@ PRINT ““Average per manth & 


300 INPUT “Do ou wish te base 
Projection on - Finat ponth; 
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or 2 - Average month 


“338 LET E=(Aim) | paND Daa) +c (Bs 7 


INT _AVsI@3) AND D=2) 
$15 PRINT ‘““Month 1, recorded: 


316 IF Z=1 THEN LPRINT "Month 1 


325 POKE 23692 
33a LET E=EsAVERAGE sE-100 
eot®..PRINT “Month “;AZ", Project 


°sae IF Z=1 THEN LPRINT "“Honth " 
oRz > prosactad: “jZ INF (E} 


55@ PAUSE 10@: POKE 23692, 
SSS PRINT * INK 2; "----—--.----- 


36@ PRINT °’ INK 2; INVERSE 1;"E 
nter your choice:" 

37@ PRINT ‘TAB 3;"i - To run pr 
paection again" 

68 PRINT TAB 3;"2 - To run thr 


ough output again, but 
Me, cpeut entering 7 
ures again" 

9@ PRINT TAB 3;"3 - To run the 
Program from the b 
Bzinning | 

@@ PRINT TAB 3;"4 - Te save th 

is run en tape" 


4@5 PRINT TAB 3;"S - Fo stap” 


49@ INPUT “Do you want hard cap 
yoof output? 

a - Yes_ 

2 -_No"™ 
S@@ IF Z<1 OR Z>2 then eo Ta 4g 


518 RETURN 


76 Using the Spectrum in business 


Part of one output: FINANCIAL MODEL 


Average 


2 - To cun projection again 
2 - To run through output 
again, but without 
entering Figures 
again 
3B - TG run the program 
from the beginning 
4 - To save this run 
on tape 
S - To stop 


Suggestions for further reading: 


Business Information Processing with BASIC Struble, George (Addison-Wesley 
Publishing Company, USA, 1980) 


BASIC Computer Programs for Business Sternberg, Charles D. (Hayden Book 
Company, Inc., US.*. 1981) 


BASIC Computer Programs in Science and Engineering Gilder, Jules H. (Hayden 
Book Company, Inc., USA, 1981) 


Some Common BASIC Programs Poole, Lou and Borchers, Mary (Osborne/ 
McGraw-Hill, USA, 1981) 
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Using the Spectrum in 
education 


This chapter is written for those who wish to use the Spectrum as 
an aid in teaching others, such as parents helping their children, ora 
teacher using the computer in class. However, there is no reason 
why you cannot use the programs and ideas, if you wish, to help 
yourself with revision for exams, or just for a little brain-stretching 
exercise. It is quite interesting how much you can learn just by 
trying to write a program which will help others learn. At the very 
least, you may well pick up a smattering of French, Physics or 
whatever, while looking up information to store in a quiz program's 
DATA statements. 

Commercial, educational software for the Spectrum (or any 
other computer for that matter) tends to suffer from one of two 
faults. It is either so simple and general that it is of little use to 
anyone, or is so specialised that it is of use to only a very few. 
Creating your own learning tools with the computer overcomes 
both these faults. You can tailor the program exactly to your needs; 
teaching and testing just those parts of courses which appear to 
need particular attention. The routines and programs discussed in 
this chapter can easily be adapted for your specific needs. 

The chapter will concentrate on programs which give practice at 
i — such as numeracy and (in the case of one program) 
knowledge of French. There are many other types of educational 
Programs you could write which could teach new’ material, or 
perhaps take the place of time-consuming laboratory work (such as 
a program which ‘combined chemicals’ in specified quantities, and 
showed the resultant mixtures). In most cases, you'll find that one 
or more of the programs given here will give you a starting point to 
produce the program you need. 

Educational programs —as you'll see alittle later on —do not have 
to be dull. Some teaching programs can even be written quite 
explicitly as games. Educational games require the players to 
develop and apply their knowledge in order to compete with other 
Students. To work well, success should go to those who use their 
knowledge most effec ively, and although random factors may 
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play some part, they should not determine the outcome of the 
game. 

Programs which teach new material can be very lengthy, as the 
programmer needs to anticipate all of the likely mistakes and 
misconceptions that may arise, and to provide correction 
sequences for them. The same material will need to be presented 
in a number of different ways so that a child who does not 
understand the first explanation may succeed when the 
information is presented in a different way. 

This sounds extremely demanding, almost impossible, and a 
good ‘half-way house’ to this sort of program is one which is 
written with the knowledge that the student has a particular text 
book with him or her as the program proceeds. Then the program 
can be used more as an intelligent guide to the book, than as a 
‘stand alone teacher’. The program could, for example, say: “Now 
that you've shown that you understand that Lamaism’s beliefs and 
worship derive from the Mahayana form of Buddhism, I'd like you 
to turn to page 26 of the textbook, and read how it was introduced 
into Tibet. When you've done that, come back to the computer and 
I'll ask you some questions about it". On return, the questions 
could check the material on page 26, and — if some lack of 
understanding was shown — direct the student to a specific 
position on that page, or to another reference to the topic 
somewhere else in the book. Using a program in this way ensures 
that a programmer's time is not tied up creating endless PRINT 
statements to cover every possibility, and means your Spectrum 
can be used to help teach subjects which might otherwise seem 
far too complex to allow for a computer approach. 

Projects are a regular feature of primary school work, but 
students often have problems locating suitable information. The 
Spectrum can be used to store the information itself — which can 
be accessed using a menu approach like Prestel — or it can be used 
to help with the location of a suitable source of information. Apart 
from the immediate benefits of this to students, it may well help 
them become aware of the increasing importance of information 
technology in modern society. 

If a school, or for that matter your home, does not have access to 
Prestel, a Prestel simulation with a limited number of choices can 
be written which will help students become familiar with the 
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techniques of using a menu-based process to locate information 
stored in a cross-referenced ‘tree structure’. 

Simulations of other types allow you to carry out investigations 
which cannot be performed in real life. The Spectrum can use a 
mathematical model to predict the outcome of making changes to 
a system. You might wish, for example, to find out how pollution 
levels will affect fish, insect and plant life in a pond. A simulation in 
economics will allow you to alter the money supply, and see how 
this affects employment levels. A chemistry simulation might 
allow you to change the catalyst, temperature and pressure to 
optimise the yield of, say, sulphur dioxide in a sulphuric acid 
manufacturing plant. Of course, a simulation can only be totally 
realistic when the mathematical model is an accurate 
representation of the system. Even when it is not totally accurate, 
so long as students are informed of simplifications in the 
simulation, it can be still most instructive. 

At the end of this chapter, |'ll discuss some specific approaches 
to educational software which have proved successful for others, 
along with an idea of the kind of things which can easily be 
transformed into educational programs. However, first I'd like to 
discuss specific programs (some written by Jeff Warren, and 
others by myself) which will show different approaches to the 
production of educational software. Even if these programs are not 
of immediate use to you in this form, they should give you models 
to work from to produce your own programs. 

Many educational programs use the RND function to set sums or 
to select questions at random, so that the learner does not become 
bored by a predictable sequence of questions. Our first program 
randomly generates simple division sums, but it can easily be 
altered to give practice in any basic mathematical sk 
ine 5 makes the user-defined graphics symbol D into an 
Ordinary division sign as used in school work. Next the initial score, 
S, is made equal to zero. The program sets 20 questions using a 
FOR/NEXT loop with qas the question number (lines 20— 120). The 
questions take the form “What is 32 divided by 4?”, which the 
Spectrum sets up as x/y. Line 30 gives a value of y between 2 and 
12, and line 40 produces a value of x which will give a whole 
number between 1 and 12 as the final answer. Line 50 displays the 
question and accepts the answer using INPUT a. Line 60 chooses 
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between the correction sequence of lines 70 and 89, or the praise 
given by line 90, which also updates the score. Remember, you 
have to press both the CAPS SHIFT and the 9 key at the same time 
to obtain the graphics cursor, G, before typing the D in line 80. The 
D will change into + when you run the program. 

Line 100 enables the user to continue to the next problem when 
he or she is ready for it. How quickly a student can take in the 
information on the screen varies considerably, so that a fixed delay 
is not a good idea. PAUSE could be used instead, but you would 
have to set a long enough time, or the message might disappear 
before it had been read, and once gone, the student could never 
get it back. Never force the user to wait for the next part of the 
program by using FOR/NEXT loops to create inflexible delays, as 
this can be very frustrating. Note that line 100 allows you to stop 
the program prematurely by keying in “s" before pressing ENTER. 
The last line of the program prints the final score. 


DIVISION TEST 


usa” ao ae NEXT BATA On aes 
“S'"bF.a: fe 
1284 1832.28 aaa 


$@ LET x=4aINT (RND#1244) 
tao 7 PAPER 6. “Ques 
ion. . 


7@ PRINT PAPER 6; ’‘"Mrang. The 
answer is not ut B 


B@ PRINT “"xi" "SUS = "axes 
: PRINT PAPER &; -P crehemne tha 
Vee x Oey a Sexe TS: GE 


nmye.*; cog: IF cH “THEN STOP 
229 CLS 
2120 NEXT 4 
130 PRINT AT @,4; “You scored "“{ 
s;“ out of 2B” 


Make sure that you limit the difficulty of your questions to the 
capabilities of the student. Do not allow the Spectrum to produce 
questions like "What is 19 divided by 7?” if the student knows 
nothing of remainders and decimals. 
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You can make your program more responsive to the user by 
using the score to control the difficulty of the questions. One way 
of achieving this in the division program is to rewrite line 30 as: 


30 LET y = 2+ INT (RND*(3 + (s>=5)*4 + (s>=10)*4)) 


Until the score of correct answers reaches five, y will be set in 
the range 2 to 4, because the logical expressions (s>=5) and 
(s>=10) will both equal zero, as both expressions are false. When 
the score is five or more, the expression (s>=5) becomes true and 
takes the value 1, and y will be given a value between 2 and 8. 
Finally, when the score reaches ten, y will be given a maximum 
value of 12. Similarly you can change line 40 to: 


40 LET x =y* INT (RND*(5 + (s>=5)*7) + 1) 


The advantage of this type of program control is that the 
transition to harder problems is smooth, and the exercise will be 
both easier and more pleasant for the user. 

Although the program has been written for division sums, it is an 
easy matter to change it to other types of calculation. We can 
change the second part of line 50 to: 


“What is 1/":y;" of “ in 


This now gives questions of the type “What is / of 32?” for 
practice with fractions. You will need to change line 80 to match 
the new question format. Try writing versions of the program to 
cover addition, subtraction (remember to make the first number 
larger than the second, unless the student knows about negative 
numbers) and multiplication. 

Many programmers like to make their software more personal 
by having the computer respond to the user by name. The idea is 
that it makes the machine appear more human. If you wish to do 
this, you will need to write a subroutine which can converse in the 
fol wing manner: 


Spectrum: “Hello. What is your name?” 
Student: “Samantha” 
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Spectrum: “Well Samantha, | hope that you are ready to 
answer some questions about the anatomy of the rat.” 


This can be carried further by having alist of ‘praise phrases’, one 
| of which is selected at random for each correct answer: 


“That's right Samantha, tibia was correct. 
or 


“Well done Samantha, femur was correct.” 


This type of approach gives a lot of satisfaction to some children, 
especially those who enjoy the talking computers and robots of 
science fiction. 

The Spectrum can also use childrens’ competitive instincts by 
maintaining a best score record, together with a fastest time, if you 
make use of the system variable FRAMES to time how long it takes 
to answer a question. This works well if you have a student trying 
to better his or her own previous performance, but can be 
discouraging for the slower children in a group, so you should give 
careful thought to its use. 

The next program, ARITHMETIC QUIZ, shows the student's 
name being used by the computer, and—in general — has a far more 
friendly approach than that used in the DIVISION program As well, 
it allows the student to choose which type of question (addition, 
subtraction, multiplication or division) will be generated. 


3@ REM ARITHMETIC B8uIs 

30 PRINT °"""“Hello, there. 
Were going to try 32 fee suas.” 

4@ PAUSE 268 


S@ CLS 

6@ PRINT ‘‘’‘"Now, that is your 
nape?" 

78 INPUT AS 

68 CLS 


98 PRINT ‘‘'’"“Pteased to meet 


ou, “; FLASH 2; BRIGHT 1; INK i; 


10@ PRINT ‘‘‘"Press anu Key whe 
n you‘’re ready J TRB 6; "to start. 


118 PAUSE @: LET SCORE=0 
220 CLS 
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Ow’, “SASS. XT can 

Stions on:* 

2 - addition;™ 

2 - subtraction; ™ 

3S - multiplication 
27@ PRINT °°" & -— division.” 


186 PRINT “‘"“Enter a number Fre 
@® “; FLASH 1;"“3 to 2“° FLASH 8; * 
To tett me whith type Of sums”"’”™ 
YOU Want to try.” 

19@ INPUT BS: LET B=VAL BS 
200 IF 5<1 OR 634 THEN GO TO 1¢ 


2@5 CLS 
2@1@ PRINY °°" OK 


f 
try Some“'“sups Using “; 
B2e2@ PRINT _ INK 2; FLASH 1; (“addi 
tion” AND B=1) + ("subtraction™ AR 
D B=2Qit+r("multiplication™ AND B=> 
Je("dGivision” AND B=4) 


2308 PAUSE 39a 

24@ CLS 

250 PRINT ‘‘‘"“Enter 1 if you we 
Nt easy sums" '“or S if you want 
Fairkty" “dif Facurt ones." 6" "™ ove 
ueocan enter 2, 3 or 4 if wou” 
want questions which are hot 
too e85y, and mot too hard.)” 
B6@ INPUT C$: LET C=sVAL cs 
IF C¢2 OR C35 THEN GO TO 2é 


ozs CLS 

BBO LET OG=("+" AND Bi} +e"—" F&F 
eae 4%" AND B=S3 +("e" AND E 
299 FOR E=1 TO 19 

3@@ LET A=INT (RND#¥(164C3)4+C 
313@ LEFT B=INT (RND#(10+4#C0))+C 
320 LET GS§=STRE A+DS+STRE B 
32S IF ABS CINT VAL GI <>VAL GE 
THEN GO 70 38a 

S330 PRINT "Now, “j ABI", this ist 
“; TRB 8; “question Aumber “jE 

34@ PRINT °""°"Uhat 25 "“;GEi"?" 
35@ PAUSE se 

36@ PRINT “‘‘"Tey it now, and 1 


“ee INPUT E. answer." 


37S PRINT = - 

$8@ IF F=VAL Gs THEN BEEP .@8,F 
+SCORE: BEEP 1,22 1F+5CQR8) PRI 
T FLASH 1; INK RND#7; PAPER = Fie 
. dene, ";AS: LET SCORE =-SCORE- 
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@o@ IF F<>VAL GS THEN PRINT “No 
T’m sorry, “JARS, but “the 2 
nswer is ";¥AL GS 

402 PAUSE Be : 

41@ PRINT **- “Your score is now 
“> INK 4; FLASH 1; SCORE; INK @; 
FLASH @i“ out of "ZE 
42@ IF E<i@® THEN PRINT “*"™Pres 
5S any key for the next question. 
“; PRUSE @: CLS : NEXT E& 

43@ PRUSE 122 


450 PRINT ‘‘"That brings us 523 
the end of "’“that Qhiz, "SAS; 
462 PRUSE i868 

465 PRINT ‘’"“Your score was "3 
INK 2; FLASH i; SCORE; INK _@; Fi 
ASH O@;" aout of bet TRB 8; FLASH 
BA BRIGHT 4; INK 2} SCORES1@a/7E;" 
47@ PRINT ‘‘“Would you tike ano 
ther round?" ‘"Type in *Y" aif you 
woud, or “’"“press any key to e 
nd." 

48@ INPUT YS 

490 IF Ys#="Y" OR YS="y" THEN GO 


500 PRINT ‘‘‘"“It‘'s been gead do 
ing sums wih"‘"you, “;AS 

52Q@ PRINT ‘'* FLASH 1; “See you 
again sometime” 

53a STOP 


As you'll see when you run it, colour and FLASH have been used 
to highlight certain things (such as the student's name the first 
time it is used). The conversation of this program proceeds as 
follows: 


“Hello, there. 

“We're going to try a few sums. 

“Now, what is your name? (Student enters his or her name) 
“Pleased to meet you (FLASH, BRIGHT, blue INK), Samantha 
“Press any key when you're ready to start.” 


PAUSE 0 is used here (line 110) to hold the display until a key is 
pressed. The variable SCORE (which holds the score, naturally * 
enough) is set to zero, and the screen clears (line 120). The 
computer takes up the conversation again: 
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“Now, Samantha, | can give you questions on: 
1 —addition; 

2—subtraction; 

3— multiplication; or 

4—division. 


Enter a number from (FLASH on) 1 to 4 (FLASH off) to tell me 
which type of sums you want to try.” 


The student enters a number which, as you can see from line 
190, is accepted as a string and then converted (using VAL) to a 
number. 

By the way, it is important to write programs so that incorrect 
input doesn't cause a crash. This is not fully covered in the first 
program in this chapter, the ion program, where the input of a 
letter instead of a number could cause the program to stop with an 
error message, leaving the user wondering what to do, This 
problem can be overcome by treating every input as a string 
variable. 

You can use the CODE function to make sure that the input is 
numeric, if that is what you require. Then you can convert the string 
into a number using VAL. Try the following lines for a single-digit 
number. 


10 INPUT n$ 
20 IF LENnS<>1 THEN PRINT “Single digit please.” : GO 
TO 10 


30 IF CODE n$<48 OR CODE n$>57 THEN PRINT 
“Numbers only please.” : GO TO 10 
40 LETn = VALn8&: PRINT “At last. 


Run it to see that you can only complete the program by entering 
a single-digit number. Numbers have character codes from 48 to 
57 inclusive. 

For multi-digit numbers you will have to separate the input into 
individual characters using string slicing techniques and check 
each character in turn. As an alternative you could use INKEYS =to 
get the number one digit at a time, with CODE INKEYS = 13 (which 
is the character code for ENTER) terminating the input. 
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Now, back to our ARITHMETIC QUIZ. The computer has asked 
the user to enter a number from one to four to select the type of 
questions which will be asked. The conversation continues: 


“OK, Samantha, we'll try some sums using subtraction (or 
whatever Samantha had chosen)” 


Note how line 220 uses the Spectrum's way of evaluating the 
logical expression AND to choose one of the four words (addition, 
subtraction, multiplication or division) depending on the value 
which has been given to B. There is a PAUSE (line 230) and the 
screen clears. The talkative Spectrum continues: “Enter 1 if you 
want easy sums, or 5 if you want fairly difficult ones. (You can enter 
2, 3 or 4 if you want questions which are not too easy, and not too 
hard.)" This gives the user a measure of control over the program, 
and the interactive nature of the experience to this point should 
help the user feel he or she really is conversing with a ‘robot 
telligence’ with a personality. The input is accepted as a string 
and converted to a number, and again the screen clears. Line 280 
makes use of the AND logic evaluation again to determine the 
arithmetic sign (+, —, * or /) which will be used in presenting 
questions to the user. 

Line 290 starts the loop of 10 questions which will be presented 
to the student, with lines 300 and 310 choosing numbers for the 
problem, with the size of the number being related to the ‘degree 
of difficulty’ (variable C) requested by the student back in line 260. 
Line 320 adds the numbers and the arithmetic sign chosen 
together into a single string. Line 325 checks the result of this 
problem, to ensure that the answer is not fractional (as it might be if 
the sum was a division), nor negative (as it could be in a subtraction 
problem). This validation line can be left out if answers which are 
not whole numbers, nor above zero, are acceptable. 

Line 330 prints out the question, using the student's name 
again: 


“Now, Samantha, this is question number 4 

“What is 7 + 3?” There is a slight PAUSE, line 350, then the 
Spectrum says: 

“Try it now, and type in your answer.” 
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Line 380 checks the answer, and, if it is correct, rewards the 
student with a couple of beeps, whose pitch is related to the 
number of correct answers which have been obtained so far in the 
current test. The words “Well done, Samantha” are printed on the 
screen, in a randomly selected flashing colour (using INK 9 to 
ensure that the words can be read), and the SCORE is incremented 
by one. If the answer given is wrong, line 390 prints up “No, I’m 
sorry, Samantha, but the answer is 10”. Notice that there are no 
flashing words, nor beeps for a wrong answer, so the correct 
answer includes a better ‘reward’ than an incorrect one. 

There is another short PAUSE, and the Spectrum prints up: 
“Your score is now (INK 1, FLASH) 1 (FLASH off, INK normal) out of 
3". If the tenth question has not been asked, the Spectrum then 
says: “Press any key for the next question.” This waiting for a key 
press allows a student to proceed at the pace he or she feels most 
comfortable with. 

At the end of the tenth question, after a PAUSE, the screen 
clears: 


“That brings us to the end of that quiz, Samantha.” (PAUSE) 
“Your score was (INK 1, FLASH) 8 (INK normal, FLASH off) 
out of 10. (many effects) 80% 

“Would you like another round? Type in “Y" if you would, or 
press any key to end.” 


Although it can take quite a long time to write a conversational 
program like this, the increased interaction it creates with the 
student more than repays the time spent in creating the extra lines 
in the program. 

Line 480 accepts the student's answer, and line 490 checks if it 
isa “Y” ora “y", thus sidestepping the problem of determining 
whether the computer has CAPS LOCK engaged or not. 

If the student says another test is required, the computer does 
not just RUN from the beginning, as this would wipe the student's 
name from the computer memory, and the whole “Now, what is 
your name?” sequence would have to be repeated, which would 
convincingly destroy the illusion of an intelligent, helpful robot. 
Instead, the computer goes to the point in the program (line 100) 
which follows the “Whatis your name?” routine. If the student has 
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not answered “Y” or “y” to the question regarding a further test, 
the computer prints up 's been good doing sums with you, 
Samantha. (FLASH on) See you again sometime.” 

Although this explanation has been even longer than the 
program, | hope it shows just how effective even a simple program 
can be made with the use of ‘conversation’. Comparing the output 
of ARITHMETIC QUIZ with the DIVISION program shows how 
much more user friendly the second program is than the first. 

There are other ways to make programs user friendly, by giving 
more feedback than just “Well done” messages. Many children 
welcome the additional motivation provided by g the ‘schoo! 
exercise to some form of game or visually interesting reward. We 
are now going to extend the first program in this chapter in this 
way, making use of the Spectrum's user-defined colour graphics 
and the sound generator. 

At the top of the screen the program will show a river with an 
incomplete bridge, and a tank on the left bank. Each time a sum is 
correctly answered, the deck of the bridge is extended. If all twenty 
answers are correct, a success ‘tune’ is played, the tank crosses 
the completed bridge and fires its gun. 


First replace line 5 of the DIVISION program by: 
5 GOTO 150 


and add to the end of line 90: 
: GO SUB 250 


Change line 110 to read: 
110 PRINT AT 8,0; FOR n=1 to 11: PRINT bS: NEXT n 


Now add the following lines to your program. 
Additional lines for DIVISION: 


2S$O3IF s=2G THEN PAUSE 75: Go TF 
3 268 

i4S STOP 

150 FOR n=1 TO 4: READ ss 

160 FOR m=0 TO 7: READ a: POKE 
USR S$tm,a: NEXT 

178 NE n 
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160 DATA “a",.7,15,7,255,255,127 
130 DATA “b",192,254,192,255,25 
254,186 

ee éaTA’ “c",255,8. Fase 4,8, ney 

21i@ DATA “d",@, 14, Bsa, aE! a, 
220 LET b=" 


230 PRINT AT. 3,@; ear? scan, P 


BER 4; : PRINT 77 
BoB i Bo bk oO PRINT AT a4 be 
2 PAPER 4;" CRIRRINT PABE 


250 PRINT AT 4,345; OVER 4; "CD": 
RETURN 

260 FOR n=@ TO 1@: FOR m=4 Ta 6 
STEP .5: BEEP @.81,m3%: NEXT »: 
NENT A 

278 FOR p=@.70 23: PRINT AT 3,n 
"AB": PAUSE S: NEXT 

280 FoR n=1 TO 5a: SLOT 246,15¢ 
: DRAV_INK 2;356,0: PLOT 216, 45R: 
DRAU INK 7; 36,6: NEXT n 
299 PRINT AT 9,10; “well done." 


Lines 150 to 170 set up four user-defined graphics symbols, 
using the data held in lines 180 to 210. The b$ defined by line 210 is 
used in line 110 to clear part of the screen only, leaving the picture 
of the bridge and tank undisturbed. This picture is created by line 
230. You will have to obtain the graphics cursor before typing 
“AB", as this will be the tank. The same applies to the “C” in line 
250 and to the “AB” in line 270. 

Line 250 draws a new section of the bridge roadway after each 
correct answer. Line 260 plays the victory tune if all of the answers 
are correct, line 270 drives the tank over the bridge and line 280 
fires its gun. 
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Here’s what it looks like in action: 


~ —-patnenene 


Guestion 2 
What is 10 divided by S? 


Good, 2 is correct. 


to continue. 


w Soreness 


Question lea 
What is 1L@ divided bu OF 


Wrong. Fhe answer is mot 3 


18-9 f2 
tremember that @ x 2 = 16 } 


Press ERS tc continue. 
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Wou scored 20 out of 20 


*—— 


TYTrrrwryrry 


well done. 


You can, of course, link the tank sequence to any educational 
program to provide additional motivation. However, if you use it too 
often, it may lose its appeal. Try making up sequences of your own, 
bearing the following points in mind. Ensure that the reward 
section does not interfere with the educational aspects of the 
program. If it takes longer than a second or so after each question, 
it will soon become tedious and annoying. The incentive should be 
positive, encouraging the child to pursue success rather than to 
avoid disaster. Do not penalise failure, because this makes some 
children feel anxious, which does not make for enjoyable learning. 

You can be fairly flexible in your approach to writing educational 
programs. There is no particular reason, for example, why the 
computer should always be used to both generate problems, and 
check their answers. Our next program, EQUATIONS (which 
generates equations of the type ax + by = 2), for example, only 
works outa problem, and prints it on the screen. When the student 
wants to see the answer, he or she simply presses any key (except 
BREAK) and the answer, along with the values substituted in the 
original equations, is given. You may well wish to enter this 
program into your Spectrum and, as an exercise, add a fu 
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conversational framework, a score-keeping mechanism, and a 
means of accepting and evaluating the student's answers. 


10 REM ESURATIONS 
2G INK 7: PAPER 2 


30 DEF FN MIN) SINT (RND#N) +3 


B= 

7@ LET C=FN Hii 

@@ LET D=FR M(1e83 

9@ LET X=FN M(2@) 
2@@ LET Y=FN_ M(185 
22@ LET E=Aex+bxy 
42@ LET F=CexX+Dsy . 
43@ PRINT ‘‘° INK 6; "The equati 

ons are:“ 


youn PRINT Seen INVERSE 1;8;° 
2B; 

* 150. PRIN “TAB 6; INVERSE 1;€;° 

x + “SDS "y FGF 

46@ PRINT ‘““yYou must soeive them 

Far “3; INVERSE 2; "x INVERSE ® 

7“ and “; INVERSE 1; “y" 

470 PRINT ‘‘"Press ahy key for 

the sclution”™ 

16@ PAUSE @ 

19@ CLS 

200 PRINT °°‘ ’TAB S;A; "x + “FB; 


” ar 
Baa PRINT ‘TAB BS Cex + “GDS Y 


220 PRINT ‘TAB ae value oF 
x is 7; FLASH 4; 

23@ PRINT ‘TAB 2; “The walue af 
y is “j; FLASH i;¥ 
248 PRINT “TRB 6,A;* 


Max RONG 


heh GM ONG 
Dpvacpy¥s" = "GF 
26@ PRINT -‘ “Press any key for 


Sample run: EQUATIONS 
The equations are: 
Sx + ly = iS 
7x + ly = 32& 


YoU MUST SOLVE thea FOr K and Y¥ 
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Press any key for the sotution 
Sx + iy = 135 
7x + luo = 25 
The value of x is 3S 
The value of y is 4 
B3*3 + 144 = 15 
7#S3 + i#4 = 25 


Press any key for a nee problem 


The equations are: 
ox + Sy = 128 
ox + 6y = 126 
You must solve them for x and ¥ 


Press any key for the scotution 
gx + Sy = 120 
9x + 6y = 126 
Tre value of x is 18 
The valve of y is 6 
9210 + S52#6 = 12a¢@ 
9210 + 626 = 126 


Press anu key for a new probtiem 


Our next program, CATS AND THINGS, is for very young 
children. It uses INKEY$ throughout, and has rigorous input 
validation. A random number of tanks, lorries or cats are displayed 
On the screen, and the child has to type in the correct number. 

Note the difference between the use of INPUT and INKEYS. 
INPUT does give you the chance to correct mistakes. INKEYS has 
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the advantage for single character inputs that you do not 
subsequently have to press ENTER. This makes the program 
quicker to use and gives it a more professional finish, 

The tanks, lorries or cats are printed with the user-defined 
graphics symbols A and B, the necessary data being held in lines 
510 to 530. The type of object is selected randomly in line 20, and 
the computed RESTORE sets the DATA pointer to the correct line 
Lines 30 to 70 then assign the name of the object to n$, and set up 
the graphics symbols. 

Lines 80 to 140 choose the number of objects, print them at the 
screen positions specified by the data in line 600, and ask the child 
how many objects there are. Note that you must have the G cursor 
when you type AB in line 120. BEEP is used in conjunction with the 
visual display to direct the child's attention in the correction section 
(lines 180 to 230). Praise, accompanied by a rising sequence of 
notes, is given by lines 250 and 260. 

You may wish to improve this program by adding extra 
statements to keep the score and to printit at the end of a set of 10 
questions. You could also make the display more attractive by 
introducing a random INK colour into line 140. Avoid white cats ona 
white background, as children feel cheated when they forget to 
count them. Try increasing the range of objects — how about birds 
or spiders? Give your children some squared paper and get them to 
devise some of their own. Write additional DATA lines from 540, 
and increase the number in line 10 from 3 to your total number of 
ferent types of object. Another variation would be to have 
random positions for the objects, if you feel that the domino-type 
pattern encourages convergent thinking. 


CATS AND THINGS 
S LET b=" 


1@ LET 
15 REM Beis ash 
2O RESTORE S@e@+1e#: 


TO 2: READ s% 
To 7 

POKE USR s$+m.2 
NEXT on 


+INT (RND& 


GSL+INT (RANG *3) 
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99 RESTORE 600 
i@®@ FOR n=12 FO z 
1i9 READ x.y 
3229 PRINT AT x,y; "AB" 
230 NEXT nb 
14@ PRINT AT _15,@; “How many "jn 
$;" are there?” 
256 GO SUB 416 


2a 
199 FOR n=i TO z 

200 READ x.y 

210 PRINT AT x,y-31; PAPER 8;n 
220 BEEP 1,n 


260 FOR m=0 TO 4 STEP 1.1: BEEP 

8.02.mxm: NEXT m: BEEP 1. 2a 

270 PRINT AT 7,a:2 

260 PRINT AT 21,8; "Press ENTER" 
298 SD SUB 418 

ee? IF CODE i$<>13 THEN GO TO 2 


319 CLS : GG To 1a 


4090 REM 
3°72? IF I §<cO"" NGO TO 4 
420 IF INKEY$=""" THEN GO TO 426 


430 LET i $=INKEY§ 
449 RETURN 
S@O@ REM 


51@ DATA “tanks”, "a",7,15, 7,255 
,255,127,63,27,"b",192,454/143, 3 
55, 255,255,454/108 : 

520 DATA “caté"," @,128,127,6 
385,56 ,40,40,"p", 28,258,34a, 

a 

53@ DATA’ “lorries","a",@,8,@8,25 
5,255,255,255,46,° 2aiaé,4a3e 
5,255,255, 255,12 ts 

@8 DATA’ 4,5,18,5,4,11,18,11,7, 
5,4,18,10,18,4,24,18,24 
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Sample run: CATS AND THINGS 


—= me wi hk 


How many lorries are there? 


How many cats are there? 
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So far in this chapter we've been concentrating on numerical 
problems, which are the easiest ones to write for the Spectrum. 
But there is no reason to assume that ones requiring verbal 
answers need be much more difficult. 

The next program, FRENCH VOCABULARY, stores the 
questions and answers in DATA statements, and can easily be 
extended or adapted for any similar one word answer quiz 
programs. Notice in this program that the computer must have 
CAPS LOCK engaged, as the questions, and the answers the 
computer is checking, are all in capital letters. The program allows 
the student to choose the number of questions he or she wishes to 
try (line 80) and this number is used in the FOR/NEXT loop in line 
100. 

You may believe it is important in programs of this type to ensure 
that the same question is not asked more than once ina run. If you 
do, you may wish to use or adapt the mechanism given in this 
program which ensures the meaning of the same word is not 
asked for more than once in any run. Line 30 dimensions an array 
and, as you know, sets every element of that array to zero. You can 
see in the DATA statements that the word in English is followed by 
the word in French, which is in turn followed by a number. When a 
pair of words is chosen (by randomly reading through the DATA 
statement, see lines 110 to 130), a value is also assigned to the 
variable X. Each pair of words has a unique number, and this 
element of the array is set to the value 1 in line 160. Line 150 
checks to see if this element is 1 before printing up the question, 
and if it is, RESTOREs, and then goes to choose another pair of 
words (and flag number). Although this means it takes alittle longer 
at the end of the quiz to find an unused pair of words than it does at 
the beginning, you'll find the delay adds to, rather than detracts 
from, the program when it is running. 

You'll see that this program, like most of the earlier ones, 
responds to a correct answer with a greater flourish than it does to 
an answer which is wrong. Notice also that the program gives an 
immediate correction if the student is wrong. 


2@ REM FRENCH VOCABULARY 

22 LET SCORE=8: PAPER 2: INK 7 
BORDER 2: CLS 

S@ DIN A2Ber 
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_40_ PRINT "TAB 5, “velcome to t 
S@ PRINT TAB GS; “vocabulary tes 


68 PRINT °’‘’TRE 6; “Hoe many wor 
as would” 

70 PRINT “ you Like to tru? 
@2. ta BO” 


@@ INPUT B 
88 IF B<2 OR B22 THEN GO TO 5 


2@@ FOR C=31 TO B 

34@ FOR D=1 TO INT (RND#20) +1 
1280 READ ES: READ FS: READ X 
SQ NEXT D 

40 RESTORE : CLS 

S@ IF A(X) =2 THEN GO TO 116 
ce LET At(X}=2 


@ PRINT °** INK RND#7; PAPER 
So," Question number “;C;": * 
BG PRINT °°! What a5 the Frenc 


THEN LET SCORE=SCC 

a 2.52#SCORE: PRINT F 

LASH 4; INK 2; PAPER 5;°‘'" Yes. 
";FS;" 38 correct 

210 IF AStoFS THEN PRINT °‘“No, 
“m sorru.” ene, French word ¢ 

oF “; ES, TRE eu “FS 

220 IF C<B THEN PRINT ‘°° INK 3; 

FLASH 1; BRIGHT ze” Your score 

is now "“; SCORE; 

23@ PAHUSE ise 

248 NEXT C 

250 INK 2: PAPER 7: FLASH 1: CL 

6S : PRINT AT 6,3; “In that test y 

Gu scored “; SCORE 

Bee PAUSE 20@: FLASH @ 


“EVERYUHERE™ ,“PSRTOUT 
“2,” QFTEN”™ 
2" JAMAIS',4, 


patOans’ 

388 DATA “THANK YoU", "MERCI" 13 
. “ONE”, "UN", 22, °TUD" , "DEUX" ,13,° 
THREE”: i FROIS"»14, "FOUR". “QUATRE 

P 


31@ DATA "FIVE", "CING”,326,"SIx" 
eo" SIX" , 17, “SEUEN“, “SEPT™, 18, “EIG 

aro) “HUIT™ ,19, "NINE", "NEUF", 20 
324 STOP 
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Sample run: FRENCH VOCABULARY 


Welcome to this Frenth 
vocabulary test. 


Question number 1: 


ghe French for 


Yes, PLUS is correct 


Your score is now 1 


Question number 2: 


What is the French for 
EVERYWHERE? 
PARTUOT 


No, I‘m sorry. 
The French word for EVERYVHERE 
is PARTOUT 


Your store is now 1 
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Question number 3: 


What is the French for 
FIVE? 
CING 


Yes, CING@ is correct 


Your score is noe 2 


You can use the next program, QUIZ-MASTER, for anything from 
weekly spelling lists to O-level Biology. The catch is that you have 
to provide the questions. This is easier than you might think, and 
hopefully students will do most of the work for you. 

The program is used to store a selection of questions or clues, 
together with the appropriate answers. Here are some examples 
to start you off: 


What is the French for “to give?” 
(answer: donner) 


Name the mineral mined at St. Auste! 
(answer: china-clay) 


Which sub-automic particle has 1 unit of mass and no 
charge? 
(answer: neutron) 


Which cell organelles contain the cytochromes? 
(answer: mitochondria) 


Short, simple clues’ should be sufficient for the weekly spelling 
test. If the list includes “knight”, a suitable clue would be “armed 
horseman”. Persuade your child to type in his or her own clues and 
words, and then try the test yourself to make sure that you agree 
on the spellings. 

The program first flashes the complete set of answers briefly 
onto the screen one at a time. It then presents the questions in 
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random order, but without any repeats. If you get one wrong, or 
simply press ENTER, you are given ahint, “k.... t” for knight, or 
“d....r" fordonner. RUN 500 allows you to create a new set of 
questions and answers. 


QUIZ—MASTER 
29 REM 
20 LET 


GQ FOR m=1l TO m: LET yfmd=en: N 
EXT na 

8S GS SUB 460: CLS: FOR n= 2 T 
O ®: PRINT AT 10,6;a 
5@: CLs : NEXT ne 


90 CLS : LET t=2 
260 PRINT AT 3,@;c$(q): INPUT i 


2120 IF i¢¢>a$fq)¢ TO (fQ)) THEN 
GG TO 2806 

129 LET s=s+t: GO TO 210 

130 GO SUB 410: CLS 

140 IF x30 THEN GO TO 6a 


150 Re} 2 
169 PRI 2@; "Your score w 


igf="" THEN GO TQ 26@ 
F,@;i8;" was weang 


270 PRINT AT 7,0;"The right ans 
wer was: ";e$;AT 9,15; agiq) 
269 GG To. 150 


S29 PRINT AT 7,0; "Here is 2 hin 
Li"; eG; AT SL,G;2¢ 

SSO PRINT AT G,15;a8iq,2) +bRSil 
TO iLt{q) -Bitagiq, (qi) 


S49 GO TO 16e 
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429 GO SUB 469 
4350 IF CODE &£€=13 THEN RETURN 
449 GO TO 420 


tse fe eee 
4790 IF INKEY$="" THEN GO To 473 


439 LET K$=INKEY$: RETURN 
aaa REM SS | 
L& 


PRINT “How many questions?” 


520 DIM cHl(m,64) > DIM ag¥(m,15): 
DIM Lim}: DIM y tm) 

530 FOR q=1 TO Mm 

B40 CLS : PRINT "Guestion “;qQ*’ 
S50 PRINT “Type in the question 
or clue.": INPUT cg tq) ‘ 

56@ PRINT_‘c#(Q)*""Type in the 
answer.“: EINPUT if 

570 PRINT ‘iS;AT 20,0;"If satis 
factory, type Si", “ta delete typ 


55@ GO SUB 460 

590 IF k¢=" THEN GO TO S4@ 

600 IF_kS<¢>"S" THEN GO TO 56@ 
610 LET Lf{qi =LEN if: LET ag#(q)= 


ogram name?; Ps 
670 SAVE PH LINE 20 

To understand how this program works it is best to start where 
the questions and answers are fed in, from line 500 onwards. The 
total number of questions, m, obtained in line 510 is used to 
dimension four arrays in line 520. Array cS holds m questions, each 
up to 64 characters (two lines) long. Array a% holds the m answers, 
each up to 15 characters long. If you want longer questions or 
answers, then change these DIM statements. Array 1 is used to 
hold the real lengths of the answers, as the answer strings are 
padded out with spaces when they are stored in the array. The 
answer length is used when the child's answer is compared with 
the correct one. 

The answers are initially accepted using INPUT i$, so that their 
lengths can be determined before they are stored in array aS. 
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de’ ions and questions from English literature into the Spectrum 
on a regular basis, you will soon establish a substantial bank of 
revision material (and will probably learn quite a bit yourself). The 
preliminary flash through the answers and the hint option make the 
responses come easily to mind when the program is run again at 
intervals throughout the year. This will give your child the 
confidence in the basic meanings of words and terms, without 
which further progress cannot be made in any subject. To enhance 
the program, you could use a further array to store explanations or 
additional information which can be called up or by-passed by the 
user at will. Another possible development would be to check 
wrong answers against a list of related terms, and to have the 
Spectrum give the correct meaning of the child's answer. 

From that very general educational program, we move to a very 
different, quite specific one. This one, which | thought of while 
reading the book ‘The Standard Reading Tests’, (see ‘Suggestions 
for further reading’ at the end of this chapter), tests reading speed, 
and retention. The computer chooses from sentences stored in 
DATA statements from line 160, and prints them on the screen. 
They are held on the screen for a time related to the length of the 
phrase (see line 60) and then the screen is cleared, and the student 
is asked to enter the phrase he or she has just read into the 
computer. The phrase entered by the student is compared (except 
for its first letter, so the first letter can be upper or lower case) with 
the phrase (minus its first letter) generated by the computer. 

If the two are the same a “Well done” message appears on the 
screen, and in due course the screen clears and another phrase is 
chosen. If the student gets the phrase wrong, there is a short 
pause, and it is repeated. This occurs until the phrase is typed in 
correctly. 

You should alter the 20 at the end of line 60 to keep the phrase on 
the screen for as long as you think necessary for the reading ability 
of the child. The phrases used should, of course, also be altered to 
suit the age and ability of the child. If you like you can take the place 
of the computer, and get the child to repeat the phrase to you, 
rather than type it in, if this seems a better way of strengthening 
your child’s reading ability. Incidentally, the book | mentioned wi 
give you a rich store of phrases and words to use in reading test 
programs of your own. 
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READING TEST 
1@ INK 4: PAPER 7: BORDER 7: c 


Se FOR dai TO ENT TEND S44) 94 
40 BEEP ivJ,3ad: READ AS: NEXT 


SO PRINT AT_10,0;A 

S@ PAUSE (LEN Asi zze 

38 FNBuT INK 2: "Now enter the | 
b ou’, "have = 
PP Sa PRINT INUERSE 1: "Sag; %76 
180 PAUSE 5a 

420 IF A(t TO )=Bsi2 To ) THEN 
BEEP .3,LEN AS: PRINT *° INK 3; 
FLASH i;"“Well done, that was co 
rrect": PAUSE 388: AUN 

128 PRINT ‘’"Sorry, that was no 


13@ PRINT *""Here it is again" 


160 DATA “Watch the gos run” 
i7@ DATA "The cat has Four tegs 


e99 is broeen” 
sun is hat" 

Fox Funs quick a 
duck Swims stowty 


has a hump" 
is 


Children enjoy using the next program, DOODLE-BUG, to 
produce sketches and doodles, but we will be creating maps and 
diagrams with it. You can draw Straight lines horizontally, vertically 
or diagonally using the keys shown below: 


NZ 


a 


The ‘home’ key H at the centre has no effect. 
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you can obtain can be quite elaborate, as the following sample 
shows: 


Sample run DOODLE-BUG: 


What is the Nahe of this town? 


ole a: 


Which of the numbered States is 
@ueenstland? 
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The map of Australia was drawn using the original sketch-pad 
program, modified by inserting the following two lines: 


50 IFINKEYS <>“" THEN GOTO 50 
60 IFINKEYS ="" THEN GO TO 60 


This slows the program down so that it plots only one point each 
time that you press a key. You need to find a map that is exactly the 
right size to fit the plotting area on your TV screen. Trace the map 
onto a sheet of transparent plastic, and tape this to your TV screen. 
Use the program to copy the map onto the screen. Leave some 
space on the screen for questions and answers. 

When your outline is complete, save it. You can add to your map 
using direct commands; CIRCLE 55, 50, 2 will produce a small 
circle for a town. To find the coordinates of places on the map, use 
the program again. Draw a line to the required spot, stop the 
program, and print the values of x and y in a corner of the screen. 
Restart the program using GO TO 40 and repeat the process. 
Finally, reload a clean copy of the map, add your towns and cities, 
and save the finished version. 

You can apply the same technique to produce almost anything 
you like, from circuit diagrams in Physics to transverse sections of 
plant stems in Biology. 

The next task is to link your map or diagram to a question and 
answer program. If the QUIZ-MASTER program is used, it needs 
some modification. Replace line 40 with: 


40 LOAD “map” SCREENS 


You will also have to direct all PRINT statements to the bottom of 
the screen. The following sub-routine may help: 


350 REM CLEAR BOTTOM THREE LINES 
360 PRINTAT 19,0;e%;e3;e$ 

370 PRINT AT 19,0; 

380 RETURN 


Now RUN 500 and enter your questions and answers. When you 
have saved this on tape, BREAK, and reload your map. Save this 
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using SAVE “map” SCREENS onto the same tape immediately 
following the question and answer program. Now when you load 
QUIZ-MASTER, it will automatically load the map and go on to the 
questions. 

As you've seen, in this chapter we've developed a range of 
programs which students will probably enjoy using, and which can 
be written without too large an investment of time. The programs 
fall mainly into the category of drill and practice exercises. 

To learn effectively a student needs: plenty of practice; instant 
knowledge of whether his or her answers are right or wrong; the 
ability to set his or her own rate of progress; and most importantly, 
the satisfaction that comes from successful achievement. 

There are other possible educational programs — such as those 
which use multiple choice answers, and ones based on shapes, 
such as parts of geometry — which we have not discussed. 
However, the material we have presented should give you a good 
point from which to develop your own software. 

If you still feel short of ideas, you could send away for catalogues 
of educational software for any computer. Simply reading the 
catalogue should be enough to spark more ideas than you can 
possible realise (in fact, this is one way | get ideas for programs in 
general, by reading descriptions of what other people's programs 
do when run). 

Now that we've come to the end of this chapter, you should 
possess a number of simple but effective educational programs 
When you are extending your collection, either with your own or 
with commercially-produced software, look for the following 
points: 


e You should not be forced to progress through several screen- 
fulls of preliminary description each time you run the program. 


q @ The amount of material on the screen at any time should be 
' minimised, so that attention is focussed on the important 
: details. 


© Inthe presentation of text, different colours should be used with 
\ a purpose, as in the DIVISION program. 


t © It should not be possible to crash the program however you 
respond to the questions. 


eee 
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@ If your answer is wrong, the correct answer must be clearly 
displayed. 


@ You should be able to work through the program at your own 
speed, without information disappearing before you can read it, 
and without periods of enforced inactivity. 

In the final analysis, a good program is one which achieves its 

objectives, and which is a pleasure to use. 


Suggestions for further reading: 


The Computer Tutor Orwig, Gary W., and Hodges, William S. (Winthrop Publishers, 
Inc., USA, 1981) 


The Standard Reading Tests Daniels, J. C. and Diack, Hunter (Chatto Educational 
Ltd., 1958) 


Problems for Computer Solution Rogowski, Stephen J. (Creative Computing Press, 
USA, 1979) 


Microcomputers in the Classroom Maddison, Alan (Hodder and Stoughton, 
London, 1982) 


Understanding Calculator Math Oliva, Ralph A. (ed.) (Texas Instruments Inc., Dallas, 
Texas; distributed by Tandy/Radio Shack, 1978) 
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Playing games with your 
Spectrum 


No matter why you bought your Spectrum, ely that you 
spend some of the time with it playing games. It is also likely that 
you'll soon realise that one of the great thrills of owning a computer 
is devising your own programs — games or whatever — and making 
them work. 

In this chapter, I'll be looking at a number of games. All of them 
will be explained in detail, with the intention of passing on some 
hints on the writing of games which may well be of some help to 
you when it comes to creating your own programs. 

| can well understand that you may be tempted to simply enter 
the final version of the game, without reading through the material 
which precedes and follows the listings. If you do this, you’ 
certainly end up with a program which works, but you'll miss the 
main point of this chapter. Try to restrain yourself, and follow 
through the descriptions, line by line, and for those programs 
which are introduced gradually, entering each part of it when you 
come to it in the description. 

The first two programs, NIGHTFALL and JACK-MAN, are 
explained in much greater detail than are some of the others. 
These are the ones you should certainly read carefully, even if you 
decide to skip the explanations of the later ones. There are many 
leas in the first two programs which | think it is very useful to 
know, not only for understanding those particular programs, but for 
applying to other programming problems. 


NIGHTFALL 
The first game involves flying an aeroplane over a city and 
attempting to reduce the skyscraper to dust. The plane flies across 
the screen getting lower as it comes to the end ofa line. Eventually 
crashes into a skyscraper, unless you have first destroyed the 
buildings. 

Our first need is to print up the skyscrapers. This can be done 
fairly easily by using a FOR/NEXT loop from 0 to 31 (the columns of 
the screen) with a ‘nested’ loop inside which prints blocks up the 
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screen for the skyscrapers. To make this clear try this program: 


Deore 
ssgg9 
a) 


It will print a whole load of skyscrapers of equal length across the 
screen. Try altering the values of ‘B ine 20 to vary the height of 
the skyscrapers. 

However, this routine does not produce a very interesting 
skyline; it looks more like a large shoe-box than a city. To give the 
skyscrapers varying heights we need a random factor. Try 
changing line 20 to: 


20 FOR B=INT (RND*22) TO 21 


The skyline will now look much more varied. The routine is now 
beginning to create something which looks more like a city. 
However it lacks uniformity. The first routine makes a city that is 
too uniform, the second a city which is too random. We need a 
guide-line around which a random-factor can work. Rather than let 
a random-factor rule us, we need to control it. To this end we can 
bring in a ‘difficulty factor’. 

In order to plot a convincing-looking city we need a rough height 
around which to build skyscrapers. Some will be slightly taller than 
the average height, some will be smaller, but none will be very 
much taller or smaller. In the last routine the average height was 
eleven characters high; but some buildings were 21 characters 
high, while others were only one high. A difficult game would be 
where the average height was about 18, since your plane would 
soon crash into the building. An easier game would be where the 
average height was, say, five. Your plane would take quite a long 
time to get to that level and crash into a building. Obviously, on the 
easy game it would be stupid to have an average height of five and 
find that one or two buildings were 20 characters high, because the 
game would no longer be easy. 

At the beginning of the game we want to ask the user for a 
degree of difficulty (for example, in the range of one to nine). With 
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this, we could build skyscrapers at a rough height guided by the 
culty chosen. Try the following routine: 

4@ INPUT “difficult (1-99 ",d 

Be IF d<i OR d>Q@ THEN GO Ta 1 
Be@ LET 4=12-4 

3S CLS 

4@ FOR a=@ TO 32 

S@ FOR b=d+INT (RND#d) TO 21 
6@ PRINT AT b- Ss; ‘2 

7@ NEXT b 

@@ NEXT 4 

9@ GO TO 18 

Type in a number from one to nine and the Spectrum will print up 
a fairly realistic skyline. Try putting in alow number and you w find 
that the city is low accordingly. What happens when you enter a 
number which is outside the range required? Why? Any program 
you write should contain a routine to reject invalid input. 

People often make a mistake when entering information via the 
keyboard, and if unchecked, the error can stop the program 
completely, or — if it continues to run — can confuse you with the 
results it generates. A single line which checks the range of the 
number entered can save problems. 

If you understand how the program works so far, we are ready to 
go on to the next stage: that of producing a moving aeroplane to fly 
across the city. 

First of all we need to choose what our plane looks like. 
Searching around the keyboard | can’t find any symbol which looks 
even vaguely like an aircraft of any sort. It looks as though we are 
going to have to employ user-defined graphics. Here's a step by 
step way of doing it: 


1] Draw a grid of eight-by-eight squares 


2] Fill in squares until you have something which resembles an 
aircraft from the side. Even if it seems a bit square don’t worry, 
as it will probably look all right on the screen. 


Here's the one | used: 
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Now go across each row and write down a zero if a square is not 
filled in, and a one if it is. For the above character you would get 


00000000 
00000000 
01100000 
01111110 
O11 1 1404 
00001000 
00010000 
00100000 


Each row of zeros and/or ones is called a binary number. 
3] Using your Spectrum, go to each row in turn and type: 

PRINT BIN (the series of zeros and ones) 
and write down the ordinary number it prints up, alongside the 
binary number you have just typed in. For example, for the third 
row you would type 


PRINT BIN 01100000 


and the computer would display the number 96. You write this 
down beside the number on the piece of paper, as follows: 


01100000 96 
Do not ignore any trailing zeros as 


01100000=96 
but 
011000=24 
You should now have eight numbers. If you used the above 


example you will have the numbers @, 0, 96, 126, 127, 8, 16 and 32 
in that order. 
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Clear your Spectrum (by using NEW) and type: 


2@ DATA [your eight numbers] 
2Q@ FOR s=@ To 7 

S@ READ b: POKE USR "SB" +3a,b 
4@ NEXT 2 


The DATA statement should contain your eight numbers 
separated by commas. Run this and nothing seems to happen. 
However, now get into graphics mode and type the letter ‘a’, and 
there is your tiny aircraft. You can now NEW the program if you 
wish and the plane will still be inside the computer ready for use, in 
fact the only way to get rid of it is to pull out the plug or define anew 
character over it. As well as graphic ‘a’ you can get the plane by 
using 'CHRS 144’. The above method can be used for any 
character you want to design of your own. 

Armed with the aeroplane character we can now go on to make it 
move across the city and get lower. Type in the last ‘city-maker’ 
routine and add the following lines (in line 20, CHRS 144 represents 
your graphics-aeroplane): 


LET u=e@ 

LET p=a8 

PRINT T U.Ps CHR 144 

LET p=p+i 

PRINT AT_u,p-ai" ™ 

IF p=S2 THEN LET pe@: LET tu 
BEEP .1.,u 

Ga To jJ4e 


u 
BORE EEE 
D+ OIRO 


SrSSosss 


You will be asked for a ‘difficulty’, and on entering it, you will see 
acity printed. Then, you will see a little plane ‘fly’ across the screen 
and get lower, ‘BEEPing’ as it goes (the ever-rising notes are 
designed to increase the tension). The plane will soon go through a 
building and carry on until it goes off the bottom of the screen and 
stops with an error message. 

What we want now is to have a line which checks where the 
Plane is being printed, and if it finds this is a skyscraper, blows the 
Plane up. For this we need two routines: one to check for a crash, 
and a routine to print an explosion. 
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First the crash-check routine — there are two ways of doing this: 


SCREENS: 
Replace line 60 with: 

60 PRINT AT b,a;INVERSE 1;"X" (capital X) 
and line 140 with: 


140 IF SCREENS (u,p)="X" THEN STOP 


SCREENS can read letters and therefore the program will stop 
when the plane hits an ‘X’. This means that the skyscraper-printing 
routine will have to be altered so that INVERSE 'X's are printed 
instead of graphic-blocks, which are not read by SCREENS. 


ATTR: 
To use the ATTR function, replace line 60 with: 


60 PRINT AT b,a; INK 5; PAPER 0;"grap 


-block” 


and replace line 140 wit! 
140 IF ATTR (u,p)=5 THEN STOP 


This works by stopping the program whenever the plane comes 
to any character which is green on black andis not flashing and has 
no extra brightness. The disadvantage of this method is that itis a 
little complicated, and if, in other Programs, there are many 
different characters whizzing all over the place, it gets a bit 
Confusing trying to work out each character's paper colour and the 
like. 

If you wanted to stop the program when the plane hit a yellow, 
flashing blob you would change line 140 to: 


140 IF ATTR (u,p)=134 THEN STOP 
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128 if the character is flashing, @ if steady yes: 1 x 128 = 128 


64 if the character is extra bright, 0 if not no: 0x64=0 
8 X the paper colour (black = 0) 8x0=0 
1 x the ink colour (yellow = 6) 1x6=6 

TOTAL = 134 


Out of the two methods, the easiest to use here is SCREENS, in 
the form: 


PRINT AT b,a; INVERSE 1;"X" 
IF SCREENS (u,p)="X" THEN ......... 


As there are only two things that the plane will come across, the 
air and the skyscraper, this function satisfies our requirements. 
Replace line 140 with: 

140 IF SCREENS (u,p)="X" THEN STOP 
add line 142: 
142 PRINT AT u,p; CHR 144 


and not forgetting line 60: 


60 PRINT AT b,a; INVERSE 1 


The program will now STOP when the plane hits a building. 


A STOP is a bit boring and unimaginative. What we need is an 
exciting explosion as the plane shatters. Try the following: 


aa #6: LET y=t21-ui +6 
Qs TO 4a 

a? y 

ae DRAW INT (RND#256) -x,INT (R 
* a 

2Q BEEP .1,2@: BEEP .@1,108 

36 


Zz 
foty Df tito 
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Pick a point on the screen and assign the co-ordinates to u and p, 
such as LET u=11: LET p=16. Enter these in directly. Now type: 
GO TO 200 and press ENTER. 

You should see the point on the screen ‘explode’, accompanied 
by suitable noises. All we have to do now is change line 140 to: 


140 IF SCREENS (u,p)="X" THEN GO TO 200 
RUN the whole program and you will get: 


a] a city plotted up on to the screen, 
b] a plane whizzing along getting lower and lower; and 
c] the plane hitting a b ilding and exploding. 


Now, read through the Program again. Make sure you 
understand how it works. Now, we're ready to add the final parts. 
These involve having a bomb which you can drop from the plane to 
destroy the skyscrapers and prolong your flight, and then dressing 
the program up to make it look more professional. 

Unfortunately, you are unl ‘ely to completely finish this, or any 
game. No sooner have you SAVEd it and sat back admiring what 
you believe to be the definitive version, than someone will come 
-along, play it, and give you a great idea on how to improve it. 

However, before worrying about any of that, we need to add the 
‘bomb’ bit of the program. For this, we need a ‘flag’. A flag is an 
indicator of the state something is in. It is usually given a value of 1 
for on, and 0 for off. In this program the flag which we'll call ‘f', will 
be equal to one when the bombis in the air, and zero when itis not. 
At the beginning we need to assign it to zero as the bomb is not 
falling. This is how the program should look so far with ‘f’ being set 
equal to zero: 


29 INPUT “diffricutty (2-33 "00 
20 IF _d<1 OR d>S THEN Go To’lo0 
S3@ LET d=13-4 

S35 cis 


4@ FOR s=@ To 32 

S@ FOR bsd+iInt {RNDe¥d) TO 22. 
6&9 PRINT AT bea; INVERSE 1; "xX 
FQ NEXT b 

8@ NEXT a 

9@ LET u=a 
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1@@ LET p=a 
121@ LET fF=a 

i4@ IF SCREENS tl. pie"x" THEN G 
Q TO 2ea 

142 PRINT AT ULPSCHRS jade 

16@ LET p=p4i 

179 FRINT AT UePerds th 

A6@ IF p=32 THEN LET PO: LET vu 
SUy1: BESS savu 

ag@ Ga Ta 4iaé 

290 LET x=pe8: LET g=(S4-us 6 
285 FOR a=1 To aoe 

207 PLOT x4 


21@ DRAW INT (RNDs256) -X,INT (R 
ND*#21582 -y 

220 BEEP .1,.20: BEEP -01,19 

83@ NEXT = 


The bomb is ‘off' (f = 0). What we need is a means of allowing 
the user to drop a bomb (make f = 1). One easy way would be to 
adda line like: 


148 IF INKEY$ <>"" THEN LET f=1 


INKEY$ holds the character of the key being pressed on the 
keyboard (it is ‘empty’ if no key is being pressed). The routine 
changes f to 1 when you press any key, when INKEYS is not equal 
to “". We could change the routine a little so the bomb is only 
dropped when the Zero-key is pressed. To do this you would need: 


148 IF INKEYS ="0" THEN LET f=1 


However, it is easier to play (and remember) if you can press any 
key to drop the bomb, so we'll leave 148 to allow any key to be 
pressed. 

Next we need two variables representing the position of the 
bomb on the screen. When the bomb is ‘off’ it is inside the aircraft 
ready to be dropped: 


144 IF f= THEN LET a=u: LET t=p (‘a' and 't’ are the co- 
ordinates of the bomb) 


We next need a character which looks like a bomb. A full-stop is 
adequate, but you may prefer to define your own bomb. Using the 
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method outlined earlier, see if you can design a bomb-character. 
One bomb-shape is as follows: 


The line which defines the character should read: 
POKE USR “b" +a,b 

and not: 
POKE USR “a” +a,b 


as this will blot out the plane-character. 

To access this new bomb-character use graphic-b or CHR$ 145. 
If you prefer the simple life, you can use a full-stop as a bomb. In 
this case, use a full-stop wherever | have put ‘CHRS 145’. 

With our bomb-shape (or full-stop) at the ready, we are now 
ready to actually print it. As the bomb is at exactly the same 
position as the plane when it is not falling (when f = 0), we do not 
want to printit up until it starts falling, or the bomb will blank out the 
plane. Line 158 will print the bom! 


158 IF f=1 THEN PRINT AT a,t; CHRS 145: BEEP .01,60—a 


The bomb will now be printed up whenever you press a button. It 
will not fall however, until you add the following line 155, which 
blanks out the bomb and adds one onto the variable ‘a’ which in 
effect moves it down: 


155 IF f=1 THEN PRINT AT a,t;“ ": LET a=a+1 
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Although we now have a falling bomb, it is not a very good one 
because it carries on down to the bottom and halts the program 
with an error-code. What is needed is a line which checks whether 
the bomb has hit a building (similar to line 140), or reached the 
bottom of the screen. 


157 


IF SCREENS (a,t)="X" OR a=21 THEN GO TO 300 


Now we can write a ‘building-blowing-up’ routine at 300: 


300 
310 
315 
320 
330 
340 


FOR a=aT0O 21 

IF RND > .99 THEN GO TO 340 
BEEP .005,a—20 

PRINT ATa,t;” ” 

NEXT a 

LET f=0; GO TO 140 


All we need now is: 


235 GOTO 10 


and we have a continuous game. It is quite difficult to aim and drop 
the bomb on the buildings you want to destroy. 
Here is a complete listing of the game so far: 


a 
3a 
SS CLs 
4a 
se 


(2-99 "4g 


INPUT “difficult 
N GO TO 19 


IF d<2 OR do TH 
LET d=12-d 


FOR a=@ To 34 
FOR b=d+INT (RND#d) 


Ta 21 
INVERSE 1; "Xx" 


THEN G 


THEN LET Fei 


68 PRINT AT ba: 
72 NEXT b 
6@ NEXT a 
aee Ler BE 
=a 
ioe Ue" ie 
CREENS (u,p)="x" 
GO To 5e0 ig an 
142 PRINT AT u.P;CHRS 144 
pié4 IF f=@ THEN LET dau: 
248 IF INKEY§<o"" 
IF f=1 THEN PRINT AT a,ti" 


LET a=avi 


LET t= 
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a THEN GO TO sae 

458 IF f<1 THEN PRINT AT a,tiCH 
R§ 145: BEEP .@1,6@-a 

ie@ LET p=p+i 

470 BRINT AT_u.p-ai0 © 

ise IF p=a2 THEN LET p=@: LET v 
=U¢1: BEEP .1.uU 

i9@ Go TO i4a 

300 LET x=p38: LET y=(21-0) 36 
BOS FOR_a=1 TO 4a 

Ba? PLOT x. 

aio DRAW INT (RND#256)-x,INT (R 
ND¥158) - 

BSa BEEP .1,20: BEEP .@1,1@ 


310 IF RND>.99 THEN GO TO 340 


33@ NEXT 38 
340 LET fea: GO TA 148 
The game works, but it lacks several things. In its present form 
there is no colour, and no scoring facilities. Try and fit them into the 
program (you could use a variable ‘s’ and add one onto it every 
time a character of skyscraper is wiped out by a bomb — round 
about line 300 or so). You will need to print the score at the end of 
the game. In the final version at the end of this section | have 
included a ‘highest score’ feature. This is fairly simple to add. Try 
adding little bits to the program to make it smarter. You could try 
defining your own skyscraper-character with windows rather than 
a boring INVERSE ‘X’. 
The ‘final’ version has DATA statements to define the user- 
defined graphic characters, so thatit can be typed in and run as itis. 


‘Final’ colour version of NIGHTFALL: 


LET h=@ 
IF b=Q THEN GO SUR 1ae2 


: INK_6@: BORDER 2 
PRINT AT _B1,@;“diFfficutty & 


4a 


i=} HEN GO TQ 38 
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And here are some sample printouts, but without colour and 
flashing lights they fail completely to do justice to the effect of 
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